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SUMMARY 


A methodology has been developed to provide calibration data for Loran-C 
navigators designed to be used in harbor, harbor entrance areas. The 
methodology can be applied over a wide range of local environments. Visual 
aids to navigation are used as a position reference whenever possible. An 
electronic positioning system is used when available visual aids to navigation 
are not satisfactory. The data acquisition system, data collection 
techniques, and data analysis procedures have been field tested in New York 
Harbor, the Delaware Bay and River, and the St. Marys River. 


The calibration points, waypoints, are calculated for each intersection of 
commonly used tracklines in a harbor area. Additional calibration points, 
termed trackpoints, are added as necessary to minimize position errors. 


A typical harbor with 20-30 waypoints can be surveyed over a two week 
period. A survey crew consists of three to five persons; a survey using only 
visual aids could be accomplished with as few as two. The survey data is 
analyzed in the field as the survey progresses to prevent the need to 
resurvey. Troublesome data is identified, and the data is recollected. 


This document provides a brief description of the data acquisition system, 
Time-Difference Survey System (TDSS); and a detailed description of data 
collection and data analysis procedures. (A complete description of the TDSS 
can be found in the Coast Guard Research and Development Center Report, "Time 
Difference Survey System (TDSS)"). Improvements and expanded utilization to 
the TDSS is discussed. Also discussed is a technique analogous to a track 
plotter for user equipment self-calibration. 
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INTRODUCTION 


Loran-C harbor survey techniques have been developed to provide 
calibration data for Loran-C navigators designed to be used in harbors and 
harbor-entrance (HHE) areas. Calibration points are provided for each 
straight line channel intersection, i.e., a waypoint. A calibration point 
between waypoints termed a trackpoint can be added, if necessary, to reduce 
position errors to an acceptable level (e.g., less than 10 meters cross-track) 
in areas where there is grid warp. Included in the survey techniques are 
procedures to validate the waypoints and detect the need for trackpoints. A 
data acquisition system for collecting Loran-C time-difference (TD) data and 
electronic position data has been designed, implemented and field tested. The 
survey techniques are designed such that the data is collected and waypoints 
are calculated and verified in the field. 


Two general methods of surveying waypoints have been developed. One 
method is used in restricted waterways where it is impractical to use a short 
range electronic positioning system. These waterways must be marked well by 
visual aids to navigation (particularly visual range markers) and have 
distinct channel boundaries. A good example of such a waterway is the St. 
Marys River, which connects Lake Superior and Lake Huron. The second method 
is designed for areas where a short-range electronic positioning system is 
practical. In this case there are no requirements for visual ranges and 
distinct channel boundaries. A good example of such an area is outer New York 
harbor. The first method is termed Visual Reference Survey; the second, 
Electronic Positioning Augmentation. 


VISUAL REFERENCE SURVEY 
SURVEY APPROACHES 


In areas such as a winding river it is an expensive and time consuming 
operation to setup and operate a short range electronic positioning system 
(e.g. Mini-Ranger, Autotape, Etc.) to provide a position reference for a 
Loran-C TD waypoint survey. Two effective techniques have been developed 
which utilize existing visual aids to navigation as the positioning 

reference. The first technique, Range-Range, is designed for the case where 
both channels which define the waypoint are marked by visual ranges. Examples 
of such a case are shown in figures 1A and 1B. The second technique, 
Channel-Edge, is designed for the case where one or both channels defining the 
waypoint is not marked by a range, but the channel edges are well defined 
(easily detectable by a fathometer) and/or marked by fixed and floating aids 
to navigation. An example of such a situation is shown in figure 2. 


Range~Range Survey 


In the case where both channels which define the waypoint are marked by 
visual ranges, the waypoint is defined as the point where both ranges close 
simultaneously. The visual ranges provide an excellent cross track reference 
near the channel centerline. An attempt could be made to survey the waypoint 
by maneuvering the survey vessel until both ranges are closed and then 
attempting to maintain this station until sufficient Loran TD data is 
collected. Unfortunately, such a technique is impractical to implement due to 
the wind, current and other vessel traffic conditions normally encountered. 
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WAYPOINT DEFINED BY TWO VISUAL RANGES (ST. MARYS RIVER) 
FIGURE 1A 











WAYPOINT DEFINED BY TWO VISUAL RANGES (DELEWARE RIVER) 
FIGURE 18 
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WAYPOINT FOR CHANNEL EDGE SURVEY (ST. MARYS RIVER) 
FIGURE 2 
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An alternative approach is described below. 


Mathematical Basis fi 


In the area about a waypoint, the Loran-C TD lines-of-position (LOPs) can 
be approximated by the linear model below: 


TDX-TDX,, *a,)(x-x,) + ayoly-yo) + ny (1) 
TDY-TDY, "a9; (x-x,) + ag9(y-yo) + Ry (2) 
TDZ-TDZ, "a3](x-x,) + a39(y-yo) + nz (3) i 


where 


TDX, TDY, TDZ are observed TDs 

TDX9, TDY,, TDZ, are waypoint TDs 

xX, y are position coordinates of the observation 

Xo» Yo are waypoint position coordinates of the waypoint 

a;,, are coefficients of the gradient matrix (directional derivatives 
of the TD grid) 

Ny, Ny, Mz are error terms due to noise and nonlinearities 


Position and TD data collected during an experiment in the Groton, CT, 
area displayed excellent agreement (i.e., rms errors less than .050 microsec) 
with the above model within 1.5 km of a waypoint. 


The equations for the centerline of the channels defining the waypoint can 
be written in the following form. 


(y-y,) = M, (x-x,) (4) 
(y-yo) = M> (x-x0) (5) 


where y = north-south position 
x = east-west position 
M],Mj = tan (course lines) 
%52Vq ~ Waypoint coordinates 


The equations for the channel centerlines can be expressed totally in 
Loran-C TD coordinates by substituting equations (4) and (5) into equations 
(1), (2) and (3). For example: 





Trackline 1: (TDY-TD¥,) = bj (TDX-TDX,) + Nj (6) 
Trackline 2: (TDY-TDY,) = ba(TDX-TDX,) + No (7) ; 
where by = (a5) + a99M,)/(az] + a1 2M}) (8) 


bo = (a9} + a99Mo)/(aqy + a1 2M) (9) 





Ny = ca by ny (10) 
No" = - bo n, (11) 


The equations for the tracklines can be similarly expressed in terms of TDX 
and TDZ and TDY and TDZ. 


Loran-C TD data can be collected along the centerlines of each channel 
near the waypoint using the visual ranges. An estimate of the trackline 
equations in TD coordinates can be calculated using linear regressions to the 
data. These equations are in a slightly different form than equations (6) and 


(7). 


trackline 1 regression line: TDY-TDY,=C)(TDX-TDX}) (12) 
trackline 2 regression line: TDY-TDY2=C27(TDX-TDX2) (13) 


where 


TDX,, TDX, = mean of the TDX data collected on trackline l, 2 

TDY,, TDY, = mean of the TDY data collected on trackline 1, 2 

C, = calculated slope from the linear regression of trackline 1 
data 

Cy = calculated slope from the linear regression of trackline 2 
data 

Slope = r(Stdy/Stdx) 


Stdy = standard deviation of TDY data 


Stdx = standard deviation of TDX data 
ri‘ ‘nrrelation coefficient of TDX and TDY data 


Waypoint Estimation 


An estimate of the waypoint TDs (TDX,, TDY,)) is determined by calculating 
the intersection of equations (12) and (139, 


For each pair of Loran-C TDs collected, a set of regression lines and 
their intersection is calculated. If three TDs are collected, there are two 
estimates calculated for each waypoint TD (e.g., TDX, and TDY, estimated 
from TDX/TDY regression lines, TDX, and TDZ, from TDX/TDZ regression 
lines, and TDY, and TDZ, estimates from TDY/TDZ regression lines). If 
four TDs are collected, three estimates for each waypoint TD are calculated. 


The accuracy of the waypoint estimates is a function of: 
a. the crossing angle of the tracklines (in TD coordinates) 


b. the confidence bounds for the regression lines at the point of 
intersection. 





estimated rms error = (S12 + $22)1/2/sin(a) (15) 
of waypoint 


where: 


Sl = one sigma confidence bound of trackline one regression line at 
the calculated waypoint 


S2 = one sigma confidence bound of trackline two regression line at 
the calculated waypoint 


A = crossing angle of the tracklines for equations (12) and (13) in 
time difference coordinates 


A = ABS (arctan (Cy) - arctan (C;)) (16) 
$12 = RES12 (1/N1 + (TDX)-TDX1)2/((N1-2)(Stdx12))) (17) 
$22 = RES22 (1/N2 + (TDX,-TDX2)2/((N2-2)(Stdx22))) (18) 


Nl = Number of data samples on trackline one 
N2 = Number of data samples on trackline two 


RES1,RES2 = Standard deviation of residuals for the regression line 
fit to trackline one data, trackline two 


Stdxl,Stdx2 = Standard deviation of TDX data for trackline one data, 
trackline two 
Stdyl,Stdy2 = Standard deviation of TDY data for trackline one data, 
trackline two 


RES12 = Stdyl (1-r,)2 (19) 
RES22 = Stdy2 (1-r2)2 (20) 


rl,r2 = correlation coeffecient of TDX and TDY for trackline one 
data, trackline two 


The crossing angles of the tracklines in TD coordinates are determined by 
the orientation of the tracklines (in spatial coordinates) and the locations 
of the Loran-C transmitters. Control of the accuracy of the estimated 
waypoint coordinates depends on the ability to minimize the confidence bounds 
of the regression lines at the waypoint. From equations (16) and (17) the 
confidence bounds for the regression lines at the waypoint are functions of: 


a. the residuals (RES) for the regression line fit to the data. The 
residual is the standard deviation of the difference between actual data 
points and the regression line equation. The smaller the residuals, the 
better the fit of the line to the data. The residuals of the trackline are a 
function of the signal-to-noise ratio of the TDs measured and the track 
keeping of the survey vessel. The trackline length should be long enough such 
that length of the trackline in microseconds is much greater than the standard 
deviation of the TDs due to noise. A good rule of thumb is that the trackline 
length be at least 35 times the standard deviation of the TDs at dockside 
(e.g., 1-1.5 microseconds). 
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b. the number of data samples (N). The confidence bound decreases by the 
square root of the number of data samples. Thus, there is diminishing return 
to taking more than 100 samples. 


c. the distance (in microsec) between the mean of the data set and the 
calculated waypoint, (TDX,-TDX). Ideally, the survey pattern should form an 
X. The worst case is when the survey pattern forms a V. If the survey 
pattern forms a V, the (TDX,-TDX) term is maximum. (The survey lines for a 
V should always at least reach the waypoint.) Assuming data is collected 
uniformly along the survey trackline and the survey line stops at the 
waypoint, the term: 


(TDXo-TDXi)2/stdxi = 3 (21) 


To achieve the same accuracy figure with a V survey as an X survey with the 
same residuals R: 


R2(1/Nx) = R2(1/Nv + 3/Nv) (22) 


Nv = 4Nx (23) 


The number of samples in the V survey (Nv) must be four times the number of 
samples in the X survey(Nx). 


Channel Edge Survey 

In the case where the one or both of the channels defining the waypoint is 
not marked by a visual range, the TDs of the waypoint can be calculated 
without resorting to an electronic positioning system if there are distinct 
channel boundaries and/or good visual aids to navigation. Loran-C TD data can 
be collected along the channel edges and at aids to navigation near the 
waypoint. The difference in TDs between an aid-to-navigation (preferably 
fixed) and the waypoint are calculated based on the relative positions of the 
aid from the waypoint. The difference in position establishes the offsets to 
be applied to the TDs measured at the aid-to-navigation to form an estimate of 
the waypoint TDs. The position offset between the aid and the waypoint can be 
determined from the local navigation chart or Army Corps of Engineers (COE) 
dredging data. The estimated waypoint TDs can be used as a reference point 
for converting the TDs collected along channel edges and at aids-to-navigation 
to position coordinates. The position data can: be plotted to the chart scale 
to produce an overlay to the navigation chart or converted to along/cross 
track and plotted with respect to the channel centerlines. The plots can be 
compared to navigation chart and/or COE data to detect systematic errors. If 
an error is detected, a correction to the waypoint TDs must be calculated. 
The TD data can be again converted to position data referenced to the 
waypoint. The position data can then be compared to the navigation chart and 
COE data to verify that the correction was applied correctly. The procedure 
must be repeated until there are no detectable systematic errors. 


Waypoint Estimation 


A general expression for calculating Loran-C time difference at a position 
(x,y) is: 


TD = (Re-Rm)/Vp+(SF,-SF,,)+(ASF,-ASF_) - Emis 





where: 
TD = calculated TD 
Vp = velocity of propagation corrected for the index of refraction; 
for index refraction ™ 1.000338 
1/Vp = 2.998986 microsec/kilometer 


Rs,Rm = range to Becondery station, master station 
Rs = ((Xs-X)2+(ys-¥)2)1/2 


SFs,S¥m = correction factor for progation delays over sea water; for 
Rs and Rm greater than 160 km, SFs-SFm = .0011(Rs-Rm) 


ASFs,ASFm = correction factor for additional propagation delay for 
over land paths 


Emis * secondary station emission delay 


For harbor survey applications, the terms in equation (24) after (Rs-Rm)/Vp 
can be treated as a constant for the harbor area, i.e., 


TD = (Rs-Rm)/Vp + C (25) 
The difference in TDs between two points is then: 

TD2-TD1 = (Rs2-Rm2)/Vp-(Rsl-Rml ) /Vp 

or 

TD2 = TD1 + (Rs2-Rm2)/Vp-(Rsl-Rml)/Vp (27) 


The above expression can be used to calculate the estimated difference in TDs 
between an aid-to-navigation (TD1) and a waypoint (TD2). 


Aid and Channel Edge Plotting 
The algorithm developed for the PILOT Loran-C navigator! can be used to 


convert TD data to position coordinates. This algorithm calculates the 
differential position on the difference between the measured TDs and the 
waypoint TDs. This differential position is then added to the waypoint 
position. The algorithm is basically the inverse of equation (27). 


An initial position estimate is made using the linear expression. 


2) * Zo+G(TD-TD,) 


where 


Z, = first position estimate 
Zp ™ waypoint position 

7B = measured TDs 

TDo = waypoint TD 

G @ gradient matrix 
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The TDs corresponding to 2), TDz;, are calculated using equation i 
(27). A second position estimate, Z2, is then calculated; 


22 = 2, + G(ID-TDy1) (29) 


If the difference between Z> and Z, is less than one meter, the 
Calculation is ended. If not, a third position calculation is made: 


23 = 2) + G(TD-TDz>) (30) 


The procedure is repeated until the difference between successive position 
calculation is less than one meter. 


{ 

| 

Data to verify a range-range solution is collected along the entire length | 

of the channel centerline using the visual range to maintain the survey vessel | 
on the centerline. If there is a distinct or well marked channel edge, TD i 

data is also collected along channel edges. The TD data is converted to xy | 
| 







and along/cross track positions and compared to the navigation chart and COE 
data if available. The along/cross track plot of the centerline data will 
indicate if the waypoint calculations are correct and if there is a 
requirement for a tracapoint between the waypoints. See the Data Analysis 
section. 









Verification 

The channel edge survey is self-verifying. The waypoint is chosen such 
that TD data converted to xy positions agrees with the navigation chart. The 
solution is normally checked with a redundant set of channel edge data not 
used in the original waypoint solution. 









PRE-SURVEY PLANNING 






Overview 

The first step in the pre-survey planning process is to determine if the 
visual survey technique can be applied to the area of interest. In some 
cases, a portion of the area can be surveyed using visual techniques and the 
remainder of the area will require electronic positioning augmentation. The 
remainder of the section assumes that it has been determined that the visual 
survey is applicable to at least a portion of the area of interest. Presurvey 
planning for electronic positioning augmentation is discussed under Electronic 
Positioning Augmentation - Presurvey Planning. The visual survey technique 
can be applied in areas where the channels are marked by visual ranges and/or 
where the channels have distinct, well marked boundaries. 













During the presurvey planning stages of a Loran-C harbor survey, the 
navigation charts for the area are studied to define waypoints and select a 
survey strategy for each waypoint. Some calculations are also performed to 
assist in the data collection phase. 






Waypoint Definition 


If the channels defining the waypoint are both marked by visual ranges, 
the waypoint is chosen as the intersection of the two visual ranges. In some 
cases the ranges may not mark the centerline of the channel boundaries. Such 
an example is seen in figure 1A, a section of the St. Marys River. If the 
channels are not marked by ranges, the intersection of the common tracklines 
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(e.g., channel centerlines) are defined as the waypoints. Local A to N 
personnel and/or Pilot Association personnel should be consulted if there is 
any doubt as to where a waypoint should be defined or to determine common 
vessel tracks. It is important that each waypoint be uniquely defined. 


COE Survey Data 

Dredging charts and data can be obtained from the COE office responsible 
for the area of interest. This data provides more detail on channel 
boundaries, channel width and length, and channel courses than the 
conventional navigation charts. The COE data is particularly useful for the 
channel edge survey technique. Figures 3 and 4 are examples of the type of 
data available from the COE. The data typically is in state-plane 
coordinates. To be useful for the survey, the coordinate units must be 
changed from feet to kilometers, and referenced to the local origin used in 
the survey. (The local origin is discussed in the following paragraphs.) 


FEHG Algorithm 

The Flat Earth Hyberbolic Grid (FEHG) TD to xy position conversion 
algorithm, developed for the PILOT Loran-C navigator’, is used to validate 
waypoints. The algorithm uses a planar grid centered at an arbitrary local 
origin in the harbor area. The origin is usually chosen as a waypoint or a 
fixed aid to navigation near the center of the harbor area. The planar (xy) 
coordinates of transmitter locations are determined using great circle 
calculations based on the latitude and longitude of the transmitters and the 
latitude and longitude of the local origin. Waypoint xy coordinates (other 
than the local origin) are calculated from the difference in TD coordinates of 
the waypoint and local origin using the FEHG algorithm. (See APPROACH - 
Channel Edge Survey) 





Waypoint and Loran-C Chain Data Files 

The data analysis program for visual survey, TLS1, is used both during the 
presurvey planning and post-survey data analysis. Documentation and user 
instructions for TLS] are contained in Appendix A. The program stores and 
uses Loran-C chain data and waypoint files to perform calculations. The 
Loran-C chain file contains the transmitter geodetic positions, transmitter 
power level, and secondary emission delays. The waypoint files store waypoint 
TDs, latitude, longitude, and xy position relative to the local origin. The 
waypoint file is a 25X8 array. Each row contains the data for one waypoint. 
Waypoint 25 is assigned to the local origin. Waypoints are broken down into 
convenient sequences and numbered. A waypoint file is created for each 
sequence. The number of waypoints in each sequence is usually limited to 
twenty. This allows four rows in the file for trackpoints to be stored if 
needed. (The local origin is stored in the waypoint 25 position in each 
waypoint file.) 


During pre-survey the latitude and longitude of each waypoint is 
determined from the navigation chart and stored in the waypoint file. 
(Latitudes and longitudes can be calculated from state-plane coordinates using 
the algorithms listed in Reference 3.) The TDs for each waypoint are 
predicted using TLS1 and stored in the appropriate waypoint file. The xy 
coordinates of the waypoints based on the predicted TDs may also be calculated 
and stored in the waypoint file. This step may be used as a check of the 
position and predicted TD data previously entered. 
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Preparation of Survey Plan 

A survey plan is prepared for each waypoint using the navigation charts, 
COE survey data, and information gathered from local A-to-N personnel and 
users of the harbor area. 


Range-Range Waypoints. 


Figure 5 is a survey planning form for a waypoint defined by the 
intersecticn of two ranges. Items to consider for a range-range survey are: 


a. survey pattern: an "X" survey pattern is the preferred survey 
pattern. Unfortunately this pattern is not always realizable due to the lack 
of navigable water or the loss of visibility of one of the range markers 
beyond the waypoint. It may be possible to run a balanced survey line (e.g., 
bracket the waypoint) on one trackline, and not on the other. This pattern, 
e.g., a "Y", is better than a V. An effort should be made to collect data at 
least to the waypoint. In some cases even this may be difficult as the front 
or rear range may become obscured near the waypoint. 


b. trackline length, The recommended survey trackline length is 
approximately 1 kilometer. The anticipated tracklines endpoints should be 
marked on the navigation chart (or a copy of the chart in the area of the 
waypoint) and turn aids noted. 


c. potential problems. The navigation chart should be studied carefully 
for potential problem areas such as bridges and overhead power lines near the 
tracklines. Avoid the region for at least 300 meters to either side of a 
power line or bridge when collecting waypoint data. Range markers that will 
be at the far end of the channel should be noted. These ranges may be 
difficult to see during daylight hours. Such waypoints are much easier to 
survey during dusk or at night. 


d. simulation. One of the program functions of TLS1 is a range-range 
survey simulation. Input are the waypoint number, start and stop points of 
the survey tracklines, expected TD noise, and number of samples. The program 
function computes a data set for each trackline and the resultant waypoint 
calculations. The simulation is useful for predicting the crossing angles of 
the tracklines, linear regression line slopes, and the effect of changing 
survey patterns. In general, shallow crossing angles of tracklines on the 
navigation chart will also produce shallow crossing angles in TD coordinates. 
The only method to compensate for this is to increase the number of data 
samples. The predicted regression line slopes are helpful during field data 
collection as a check of the reasonableness of the data as it is being 
collected (see Data Collection). 


Channel Edge Survey. 

The navigation chart for the area near the waypoint must be studied to 
determine the aids to navigation channel edges and where TD data will be 
collected. In general the more data collected, the better; however, some 
effort must be made to keep the amount of data and time spent collecting the 
data within reason. Some planning is advisable for the method the data will 
be stored in data files. It takes a little longer to store data into several 
files rather than one larger file during the data collection phase, but it is 
easier to combine data files than break them up during data analysis. A 
recommended procedure is to store data collected at each aid to navigation and 
along channel edges (e.g., one side between two waypoints) in separate files. 
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Verification Data. 

Verification data for range-range waypoints can be readily collected when 
traveling from one waypoint to another and enroute to a survey area. If the 
same area is traveled several times, data can be taken along the channel edges 
as well as along the channel centerline. 


It is a good practice to plan to collect a redundant set of channel edge 
or fixed aid-to-navigation data in the area of a waypoint defined by channel 
edge data. This can be used as a check for the waypoint calculations. 


DATA COLLECTION 


Time Difference Survey System (TDSS) 
The TDSS is a data acquisition system designed to collect Loran-C time 


difference and position data for Loran-C harbor survey applications. The 
system provides a real time graphic display of the data as it is collected and 
calculates cumulative statistics including linear regression parameters for 
the TD variables. 
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The TDSS consists of a Hewlett-Packard HP9845T desktop computer, an 
Austron 5000 Loran-C monitor receiver, a Motorola Mini-Ranger positioning 

| system and a Deltec Uninterruptable Power Supply (UPS). The Mini-Ranger 

system is not used for visual survey applications. The UPS is necessary only 

when the reliability and stability of electrical power is in question. 
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i! A complete description of the TDSS is contained in the Time Difference 
Survey System (TDSS) Installation and Operation Manual2, 


Special Function Keys. 

Figure 6 is the overlay for the special function keys (SFKs) on the 
HP9845. The keys can be functionally divided into two groups: Austron 5000 
Control and Data Collection. Tables 1 and 2 are brief descriptions of the 
functions of the SFKs for each group. 


apesneaies 


TD/TD Graphics Plot. 

An example of the TD/TD graphics plot is shown in figure 7. The TDs to be 
plotted, predicted waypoint, anticipated minimum and maximum TD values, and 
predicted regression line slope must be input to the calculator during data 
} collection initialization. Each data point collected is plotted on the CRT 
(if it falls within the plotting area). The cursor is positioned over the 
latest sample. The bar graphs to the left of the plot indicate the confidence 
bound of a regression line fit to three pairs of TDs (WX, XY and YZ). Note 
that this is the confidence bound at the mean (approximately the center) of 


. the trackline. The confidence bound at the end points is approximately twice 
this value. 
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Statistics Tabulation. 
At the end of a data collection run (typically 100 samples with a maximum 
of 400 samples), the graphics display is dumped and a statistics summary table 
is printed on the hard copy printer. Figure 8 is an example of the statistics 
summary. A printout of tue current statistics can be obtained at anytime 
during a data collection run by pressing the Stats key (SF28). 







: Austron 5000 Setup. 
The Austron 5000 Loran-C Receiver offers operational flexibility not found 


in a receiver designed for navigational use. Some important features for 
survey use are: 


a a nr ae 


SPECIAL FUNCTIONS 





3 . : 
err SeSHIFT KEY HELD PRIOR TO PRESSING S FUNCTION KEY, WHICH IS KEYS KIG——-KSI 


SPECIAL FUNCTION KEY OVERLAY - 


| TDSS SPECIAL FUNCTION KEY OVERLAY 
i FIGURE 6 


‘TDY 


cme. Aes h enemtinel eek ed a arm 





TBX 





EXAMPLE OF TOSS GRAPHICS PLOT 
FIGURE 7 





Fo SY Te 





a. TMCN: tracking loop bandwidth (time constant) - the TMCN command 
controls the tracking loop time constant (TMCN/10 seconds). The higher the 
TMCN (longer time constant) the greater the noise rejection, and the poorer 
the tracking performance during changes in course and speed. For survey 
applications it is desirable to have low TD standard deviations (high noise 
rejection) and good tracking performance. Another constraint for data 
collection is that data samples should be independent (e.g., not time 
correlated). This latter constraint requires the interval between data 
samples to be at least two tracking loop time constants (e.g., 2XTMCN/10 
seconds). The maximum sampling rate of the TDSS is one sample every 12 
seconds. This limitation is caused by the data transfer rate of RPRT messages 
from the Austron 5000 to the HP9845. A TMCN of 50 (approx. 5 seconds) 
provides good signal-to-noise ratio performance (standard deviation = 20-50 
nanoseconds), acceptable dynamic performance, and enables the TDSS to be 
operated at its fastest sampling rate. 


b. CLIP: linear clipping level - noise in the low frequency spectrum 
tends to be burst-like rather than continuously Gaussian distributed. The 
Austron 5000 receiver provides linear processing which has excellent 
performance characteristics under many conditions, (and is optimum for 
Gaussian noise) but is suboptimal for burst type noise. There is a provision 
for non-linear processing in the Austron 5000 which considerably improves 
receiver performance in the presence of burst-type noise. The process is 
clipping and is set by the CLIP command. A CLIP level of 130 is recommended 
for survey operations. 


c. STATIONS: stations tracked - The Austron 5000 has the capability of 
tracking several Loran-C chains simultaneously and up to a total of six 
stations. The TDSS software is designed for the Austron to be operated with 
one chain with up to five stations including the Master. It is not necessary 
that all four secondaries be in the track mode. 


Waypoint Data, Range~Range 


Track-keeping. 

The ranges which define the waypoint and planned survey tracklines are 
determined during the Presurvey Planning. On arrival in the area of the 
waypoint, the ranges and turn aids should be identified. As discussed in 
Presurvey Planning, the recommended trackline length is approximately 1 
kilometer (1/2 nautical mile). It is impossible to keep the ranges perfectly 
aligned during an entire data collection run. However, an attempt should be 
made to keep the survey vessel on range as close as possible. Wind and 
current will tend to bias the vessel to one side of the centerline. The 
tendency is to fall off the range, correct to the centerline, fall off the 
range, etc. This process tends to bias the data to the down-wind (current ) 
side of the channel. A preferred procedure is to correct the vessel track 
slightly to the up-wind (current) side of the channel centerline; such that 
the average trackline is on the range. It is not necessary to "pause" data 
collection when the survey vessel is slightly to one side or other of the 
channel. Data collection should be "paused" during turns and when the survey 
vessel is significantly off the range. 


Sample Number and Multiple Runs. 
The recommended survey procedure is to collect at least two repetitions of 
the survey trackline rather than attempting to collect the desired number of 
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COMMAND KEY FUNCTION 
ACQL Kis -Transmits an ACQl command (signal 
acquisition) to the Austron 5000 
RPRT1 K19 -Transmits a RPRT1 command 
to the Austron 5000 


TMCN K20 -Requests a TMCN value from 
operator, then sends command to 
Austron 5000 to set input TMCN 
to all stations 
-Sets HP9845 keyboard in teletype 
mode. Keyboard is used as a 
terminal to control Austron 5000 
using standard Austron commands. 
OFF-KBD ~-Returns HP9845 keyboard to 
normal calculator mode. 





TDSS SPECIAL FUNCTION KEYS RELATED TO AUSTRON 5000 
LORAN-C RECEIVER CONTROL 
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| TABLE 1 


COMMAND KEY FUNCTION 

Data-col R21 -Initializes data collection 
parameters. 

Start K25 -Starts data collection. 

Pause K9 -Pauses data storage and plot; 
samples are displayed on CRT. 

Cont -Cancels data-collection Pause. 

Stop -Stops data collection. The graphics 
display is dumped onto the thermal 
printer and a statistics summary 

| table is printed. Data may be stored 

eo! on magnetic tape. 

-Prints an interim statistics summary 

table. 

-Inverts the trilateration triangle for 

: calculating position from Mini-Ranger 

~ data; used when baseline between 

reference stations is crossed. 





TDSS SPECIAL FUNCTION KEYS RELATED TO DATA COLLECTION 
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samples on a single run. However, if conditions permit accurate trackkeeping 
at a slow speed, a single run is adequate. The desired number of samples 
depends on: 


a. the distance to the front range and sensitivity of the range. This 
will determine the capability of keeping the vessel on the channel centerline 
(track-keeping noise). 


b. the crossing angle of the tracklines. The only method to compensate 
for poor crossing angles is to increase the number of data samples. . 


c. the survey pattern. If a "V" pattern must be used, a larger number of 
samples is required than if an "X" pattern is used. 


The usual range of samples is 50 to 200. However, there is usually not much 
to be gained beyond 100 samples. The bar graphs on the TD/TD graphics display 
are a good indicator of data quality. If the bar graph for the TD pair of 
greatest interest is between 5 and 10 nanoseconds, there is usually sufficient 
data. Another good check of data quality is the correlation coefficients for 
the data pairs. Correlation coefficients in the range of +.9 to +.999 can be 
expected. 


Care should be taken in collecting data with the range markers “over the 
shoulder." It is sometimes advantageous from a survey standpoint to collect 
data in both directions. However, it is considerably more difficult to 
maintain a good vessel track with the ranges to the stern of the survey 
vessel. In some cases it is more prudent to collect data only in the 
approaching direction. It may add some time to the data collection phase, but 
it greatly simplifies the data analysis if little or no data editing is 
necessary. 


Verification Data, Range-Range 


Data to verify waypoint calculation is collected along the channel 
centerlines over the entire length of the channel. It is important during the 
data analysis phase to know when the vessel was on the centerline. Notes 
should be made during the survey of the sample numbers and approximate 
alongtrack distance when the survey vessel is on the range. It will not 
always be physically possible to maintain the vessel on the range over the 
entire length of the centerline due to other vessel traffic. Again, the 
sample number of when the vessel deviated from the centerline and when it 
returned are extremely useful during data analysis. If the survey vessel must 
deviate from the centerline for other traffic, it is a good practice to move 
to the channel edge until the centerline is clear. The distance that the 
vessel moved calculated from the TD data is compared to distance between the 
channel centerline and channel edge on the navigation chart or COE data during 
data analysis. 


The data for waypoint verification can be collected enroute between 
waypoints and enroute to a survey area. Several validation runs provide a 
good check on the waypoint and the variability of the TD grid. One or more 
centerline data runs and data taken along both channel edges are usually 
sufficient. 


If the verification data is being collected while enroute to a survey 
area, the data for several channels can be strung together in the same data 
file. The sample number when a turn is started and when the vessel is steady 
on the next range should be recorded to assist the data analyst. The TDSS can 








collect up to 400 samples in a single data file. If this number will be 
exceeded with the vessel partially between two waypoints, the data collection 
run should be stopped, the data stored, and a new data collection run started. 


Waypoint Data, Channel-Edge 
Data to calculate the waypoint is collected at principal 


aids-to-navigation near the waypoint and along the channel edges of the two 
channels which define the waypoint. Wind, current and the position of the 
survey vessel with respect to the aid-to-navigation should be recorded when 
collecting data at an aid-to-navigation. The average fathometer reading 
should also be recorded. 


Data collected at aids to navigation near the waypoint should be stored on 
separate data files. The channel edge data should be collected and stored in 
segments consisting of one side of the channel between two waypoints. Buoys 
or fixed aids along the channel edge can be marked by stationing the survey 
vessel near the aid until 5 to 10 samples are collected. All accessible fixed 
aids and every second or third buoy should be marked. 


Waypoint Verification, Channel-Edge 


Waypoint verification for the channel edge survey is accomplished as part 
of the waypoint calculation. A redundant data file for at least one of the 
channel edges should be collected. This data set can be used during data 
analysis to check the waypoint calculations. 


Data Files 

The TDSS stores data in files on a magnetic tape cartridge with a maximum 
of 400 samples per file. Each file is identified with a file name consisting 
of 1-6 alphanumeric characters. It is convenient to establish a convention 
for naming files before a survey begins so that the data that is stored on the 
file can be identified for data analysis. Some suggestions for naming files 
are listed below: 


a. Range-Range Survey Line (Tracklines): TL (waypoint from) (waypoint 
surveyed). TL76 and TL56 would be the two survey files for waypoint 6. 


b. Range-Range Verification: CL(Start Waypoint) (Stop Waypoint). CLi819 
is the data collected on the centerline (CL) between waypoints 18 and 19, 
CL1720 is the data collected on channel centerlines starting near WP17 and 
stopping near WP20. 


c. Channel Edge Data: RE(Start waypoint) (Stop Waypoint). RE1314 is the 
data along the channel edge marked by red buoys (RE) between waypoints 13 and 
14; BE1314 is the data along channel edge marked by black buoys (BE) between 


waypoints 13 and 14. BUOYL5 is data collected at Buoy 15, LT28 is data 
collected at Light 28. 


d. Dockside Data: DS(Julian Date)(Number). DS1892 is the second set of 
dockside data collected on Julian day 189. 


Local Monitor 

Data from a local monitor is collected so that a correction plot can be 
prepared for the time interval when survey data was collected. An initial 
comparison can be made of dockside data and the TD data from the local monitor 
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during the periods when dockside data was collected before getting underway 
and after returning to port. This comparison is a check that any offsets in 
the dockside data were also observed at the local monitor. This provides a 
check of both the TDSS and local monitor. The correction plot is used during 
data analysis to remove any temporal offsets from the survey data. 


DATA ANALYSIS 


A Hewlett Packard HP9845T desktop computer and the computer program "TLS1" 
are used to analyze the data collected during a harbor survey using visual 
reference positioning techniques. The program "TLS1" is a collection of 
special function programs which can: be used to 


a. calculate waypoint TDs, and 
b. evaluate the performance of the resultant waypoints. 

' TLS1. The program TLS1 consists of 19 special function programs selected 
by one of the special function keys of the HP9845. The functions are divided 
into six groups and a short description of each program function is provided 

| in the following sections. 


Presurvey Planning Group 


; a. Predict TDs, K20: calculates predicted TDs for an input latitude, 
3 | longitude. The program also outputs range and bearing to transmitter stations 





and GDOPs for three TD and two TD position fixes. It requires that a Chain 
Data File be available. 


, b. File or Read Waypoint Data, K23: used to create waypoint table files 
E and to edit and restore waypoint table files. It can also be used to obtain a 
% listing of the waypoint table. The waypoint table is a 25X8 matrix. The 
wT first four columns contain waypoint TD values (TDW, TDX, TDY, TDZ). Columns 
five and six contain the xy position referenced to the local origin. Columns 
seven and eight contain the latitude and longitude in decimal degrees. 
Waypoint 25 (e.g., row 25 is designated as the local origin. The latitude and 
longitude stored in this location is used by program functions which calculate 


ql the local xy coordinates of the transmitters. If the local origin is also one 
of a sequence of waypoints, its parameters will be stored twice, i.e.; in row 
_ 25 and in the row corresponding to its logical waypoint number. 


c. Store Chain Data, K6: stores Loran-C chain data (transmitter geodetic 
: positions, transmitter power levels, and secondary emission delays) on a data 
file for later use. File names are a five character mnemonic for the 
particular Loran-C chain. The first four characters are an abbreviation for 
the chain (e.g., NEUS, SEUS, GTLK, etc.). The fifth character is a number 
from 1 to 4 which designates the configuration of three TDs: 1 = XYZ, 2 = 
WXY, 3 = WXZ, 4 = WYZ. 


iS d. Simulate Waypoint Survey, K28: simulates the survey of a waypoint 

| using the intersection of visual ranges technique. Two TD data sets are 

og generated along the tracklines defining a waypoint. Input variables are the 
waypoint of interest, the starting and stopping points of the survey lines, 
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and the expected standard deviation of the TDs. The program function 
processes the data as if it were field data. Statistics and regression 
parameter tables are printed on the hard copy printer for each data set along 
with the waypoint table. The "true" TD values for the waypoint are zero. The 
tabulated waypoint value is the error in estimating the waypoint. 


Survey Data Handling Group 


a. Read Data File, KO: reads time-difference (TD) and time-of-day data 
stored on magnetic tape. The TD data may be corrected for known offsets. If 
TDs are corrected, a lower case "t" is automatically annotated to the file 
name. 


b. Edit Data, K16: used to edit (i.e., remove) samples from the data 
(TD, time, and range) arrays. Three options are available to the user: 


(1) The first option deletes a single data sample in each data array. 

(2) The second deletes a block of data samples. 

(3) The third deletes samples with TD samples outside a range that is 
input by the operator. 


When editing of the data arrays is complete, the operator may store the edited 
data on a new file for later use. 


NOTE: The edit function deletes only TD data samples. Arrays previously 
formed containing XY and along/cross track position data are not affected. 
Functions Kl and K17 must be repeated to see the effect of editing on computed 
positions. 


c. Separate Data into Subfiles, K3: allows a large data file to be 
broken up and stored in several smaller data files or a subset of a large data 
file to be stored as a separate file. 


d. Link Data Files, K25: enables multiple data files to be loaded into 
memory. TD data can be corrected for each file entered. The total number of 
samples must be equal to or less than 400. The function will automatically 
ignore any samples which would cause this limit to be exceeded. 


e. Read Data from MFE5000, K29: reads TDs collected from an MFE 5000 
tape drive. The data is assumed to have been recorded from an Internav 404 
EIA OUT port with the following data format: 


Characters 1-8; GRI 

Characters 10-17; TDA 
Characters 19-26; TDB 
Characters 28-35; TDC 
Characters 37-44; TDD 


The program function also assumes that TDW = TDA; TDX = TDB, TDY = TDC; and 
TDZ = TDD. If this is not true, program lines 1820 through 1850 must be 
changed to reflect the proper arrangement. This program is normally not used 
with the TDSS. It can be used to analyze data collected using a supplementary 
LC404 receiver and a MFE 5000 data recorder. 
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Statistics and Regression Group 


a. Calculate Statistics and Linear Regression of TD Data, K2: calculates 
statistics, linear regression coefficients, and minimum and maximum for the 
four TD arrays. Statistics and regression parameters calculated are: 


(1) mean for each TD 
(2) standard deviation for each TD 
(3) covariance of TD pairs 
(4) correlation coefficient of each TD pair 
(5) linear regression slopes of each TD pair 
(6) standard deviation of residuals for each regression line 


be Plot TD Data with Regression Lines, K4: plots two of the 
time-difference arrays against each other and also plots the linear regression 
line for the TD pair chosen. The program automatically scales the plot for 
the minimum and maximum TDs for each array. The axes are drawn through the 
mean for each TD. Minor tic marks are every microsecond and major tic marks 
every 10 microseconds. 


' c. Plot Residuals, K5: plots the residuals from the linear regression 
| for any TD pair (See K2). The residuals may be plotted against sample number 
or the independent variable. Residuals are normalized to the standard ; 
; deviation of the residuals. Normalized values greater than 5 are printed on 
H the hard copy printer and are not plotted. 


| Waypoint Calculation Group 


it) ¢- a.» Calculate Waypoint, K21: computes range-range waypoint time 
differences, estimated rms error, and lop crossing angles. The function also 
calculates and prints statistics and regression parameters for each of the 
survey tracklines. 


b. Daisy Chain, K22: calculates the position of a waypoint besed on the 
difference in TDs between it and a neighboring waypoint. The Flat Earth 
Hyperbolic Grid (FEGH) is used to calculate position coordinates. 

Differential xy coordinates, differential latitude and longitude, and range 
and bearing between waypoints are also calculated. The user has the option of 
inserting the calculated xy coordinates (and latitude longitude) into the 
waypoint table, Wpt(*). Note: This function does not restore the new 


waypoint tabie in magnetic tape. If this is desired, function K23 must be 
used. 


ce File or Read Waypoint Data, K23: used to create waypoint table files 
and to edit and restore waypoint table files. It can also be used to obtain a 
listing of the waypoint table. The waypoint table is a 25X8 matrix. The 
first four columns contain waypoint TD values (TDW, TDX, TDY, TDZ). Columns 
five and six contain the xy position referenced to the local origin. Columns 
seven and eight contain the latitude and longitude in decimal degrees. 
: Waypoint 25 (e.g. row 25) is designated as the local origin. The latitude and 
a longitude stored in this location is used by any program function which 
Soo calculates the local xy coordinates of the transmitters. If the local origin 
is also one of a sequence of waypoints, its parameters will be stored twice, 
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i.e. in row 25 and in the row corresponding to its logical waypoint number. 


d. TD Move, K24: calculates the change in TD from a waypoint to a 
position offset from the waypoint. This offset in waypoint position and TD 
may be applied to the waypoint table. The change in TDs is calculated based 
on the change in distances to the transmitters. 


Data Conversion Group 


a. Convert TD Data to XY and Along/Cross Track Position, Kl17: converts 
TD data to xy and along/cross track positions using the FEHG algorithm and 
surveyed waypoints. The program will compute either a three or two TD 
solution. A summary table is printed on the hard copy printer which Lists: 


-chain and LOPs used in the solution 

-file name 

~-bearing angle between waypoints used for along/cross track calculation 
- rms trackline of data 

“average cross track position 

-standard deviation of cross track position 

“average xy position 

~-standard deviation of xy position data 


b. Plot XY Data, K18: This program function plots the xy data calculated 
from Loran-C TDs on the CRT or 9872A plotter. Two options are available. The 
first automatically scales the CRT (or9872A) plotting area to the range of xy 
data. The operator may zoom in on a section of the plot, find the sample 
number of a plotted point, and digitize up to 10 locations on the plot. The 
second option plots the xy data to a chart scale (1:10,000,1:20,000, 1:40,000, 
or 1:80,000). The axes are drawn through a waypoint selected by the 
operator. The operator also inputs the offset of the waypoint (axes) from the 
lower left hand corner of the plotting area. The selection of waypoint offset 
and scale determines the window of data which will be plotted. 


ce. Plot Along/Cress Track Data, K19: This program function plots cross 
track vs along track position. The plot is automatically scaled and labeled. 


XY to TD Offset Conversion Group 
a. TD Move, K24: See Waypoint Calculations 


b. Measured-Projected TDs, K27: calculates the statistics of the 
difference between the TDs measured and TDs projected from the waypoint based 
on the xy position calculated from the measured TDs. The result is a measure 
of the three TD fix triangle. The function can be used to estimate the third 
TD of a waypoint if two are known. 


Waypoint Calculations 


Range-Range. 

For the range-range survey case, data is collected on each range line and 
stored in data files on a magnetic tape cartridge. The term trackline is used 
for the survey line along one of the visual ranges. Trackline data is 
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collected near the waypoint and optimally brackets the waypoint. A trackline 

data file typically contains two to four runs along the range line. For each 

pair of TDs collected, a straight line is fit to the trackline data using 
linear regression. The waypoint is calculated as the intersection of the . 
regression lines for each trackline. 


I 

The function Compute Waypoint, (K21), calculates statistics and linear | 

‘ regression parameters for each TD pair of data collected for the two trackline j 
data files and the intersection of the regression lines for each TD pair. The 

crossing angle of the regression lines and the estimated rms error of the ‘ 
waypoint estimate (intersection of regression lines) are also calculated. The 

results are printed in tabular form as shown in figure 9. 


The quality of the trackline data can be checked by examining the 
correlation coefficient and residuals for each TD pair. Four TD pairs can be 
collected, but it is rare that all four provide useful data. In many cases, 
there are three good TDs available. The correlation coefficient and residuals 
are a measure of how good the trackline data fits a straight line. If the 
vessel track were a perfect straight line, the residuals would be slightly 
greater than the standard deviations of the dependent variable observed at 

i dockside. A “noisy” vessel track will show up as larger residuals. A typical 
range in residuals is .025 to .060 microseconds. One's ability to detect if 
the survey vessel is on or off the range decreases as the distance to the 
range markers increases. Therefore, tracklines run at the far end of the 

‘i range will tend to have larger residuals than tracklines nearer the range 

a | markers. In some cases, portions of tracklines run with the range markers 

| “over the shoulder" may cause problems due to poor track keeping. The survey 
officer's notebooks should be checked for comments concerning suspect data. 

i Suspect data can be removed using the Edit (K16) function. TD Statistics and 

Regression (K2), Plot TD Data with Regression Lines (K4) and Plot Residuals 

(K5) are useful functions for detecting suspect data and identifying sample 

numbers to delete. 
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good indication of waypoint quality. Estimated rms error is a function of 
trackline residuals, crossing angles, number of samples, and the survey 
pattern. Reducing trackline residuals by editing suspect data will also 
reduce rms error in the waypoint solution. (Note, the number of samples is 
also reduced.) Crossing angles are fixed by the configuration of the channel 
and the Loran-C chain geometry. The rms error is inversely proportional to 

“i the square root of the number of samples. The error is minimum when the 

: survey tracklines form an X pattern. The difference between an X pattern and 
a V pattern with the same number of samples is a factor of two. Editing data 
to better bracket the waypoint can improve the calculated rms error. 


I The estimated rms error and the closure between waypoint solutions is a 


~ tere ES 


If there are three TD data arrays, there are two solutions for the ; 
waypoint value of each TD. If four TDs are collected, there are three 
solutions for each waypoint TD. The term, closure, is used to describe the 
agreement between solutions. If two solutions have low estimated ras rors 
(e.g-, less than 20 nanoseconds), there should be good closure between the 
bo solutions. A good rule of thumb is that the closure difference should be less 
Zz than twice the sum of the estimated rms error for each solution. 
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TDW CTDX> <TBY> 
CUMULATIVE AVERAGE 6.660 30963. 345 48000. 359 
STANDARD DEVIATION 6.600 2341 1.694 
cux> . cwY> 


CORRELATION COEFFICENT 9.99999999999E+99 9.99999999999E+99 
REGRESSION LINE SLOPE  9.99999999999E+99 9.999999999996+99 
RESIDUAL 0.006 0.800 


INDEPENDENT VARIABLE 2 2 

cKYD ¢X2> 
CORRELATION COEFFICENT -.999 -.998 
REGRESSION LINE SLOPE -3.1385 -1.588 
RESTSUAL 2823 2031 
INDEPENDENT VARIABLE 2 2 
SANPLES= 69 





CTB2> 
$9196.777 
2833 


Cuz> 

9. 99999999999E +99 
9. 99999S99999E+99 
©.606 


2 


v2) 
1.080 
503 
2025 





EXAMPLE OF TDSS STATISTICS SUMMARY 
. FIGURE 8 
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TRACKLINE ONES . TLi81? 

a SS EE eee 
TDu T3x Tey vD2 

CUMULATIVE AVERAGE 6.000 27401.153 43356.355 59504.551 

STANDARD DEVIATION 6.088 1.988 1.198 1.699 

TD PAIR _ ue uy . uz KY xz v2 

CORR COEF 0.900 0.800 0.000 8 -1.000 -1.600 1.008 

SLOPE ©.000 0.000 6.008 8§=6-. 683 -.856 1.419 

RESIDUAL 2.000 0.000 @.000 036 0=—s«w SO .034 

IND var 2 2 2 3 i 2 


SAMNPLES© 126 


FY TRACKLINE THO= 111617 
e a 
Fo! TBH TX TY TDz 
i CUMULATIVE AVERAGE 0.060 27402.339 43385.875 59503.660 
STANDARD DEVIATION ©. 688 -065 040 : .418 4 
TD PAIR ux uy uz xy xz v2 
CORR COEF @.000 0.000 0.080 791 -.994 -.788 
\ SLOPE @.600 0.000 0.008 -037 -.478 713.515 
RESIDUAL 0.080 0.000 @.000 024 044 -026 


2 2 2 1 i 2 
SAMPLES= 44 


é 
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WAYPOINT SOLUTION 


TD PAIR ° ux uy uz xv x2 vz 
TDM 0.000 @.000 6.000 
= TDx @.000 27401.978 27401.975 
TBY 0.000 43355. 062 43955. 0863 
7B2 0.000 $9503.048 59503.059 
RAS ERROR 0.000 @.000 0.000 - 010 023 .009: 
CROSSING ANGLE 6.000 @.000 0.000 32.203 18.310 140.58? 





EXAMPLE OF RANGE-RANGE WAYPOINT CALCULATIONS 
FIGURE 9 
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The waypoint TD estimate with the lowest estimated rms error is chosen as 
the waypoint value. If two solutions have approximately the same rms error, 
they are averaged. 


Figure 10 is a summary of the data analysis procedure for calculating a 
waypoint with range-range data. 


If one of the three waypoint TDs calculated using the range-range approach 
has poor rms estimates for all solutions, a supplemental technique can be 
used. Here the xy position coordinates for one of the survey tracklines or an 
aid-to-navigation near the waypoint can be calculated using Convert TD Data to 
XY and AT/CT (K17), the estimated waypoint, and the two TD solution (using the 
two good TDs). The function, Measured-Projected TDs (K27), calculates a set 
of three TDs for each xy data point based on the difference in distance 
between the waypoint and xy data point and the TDs of the waypoint. These 
"projected" TDs can be subtracted from the measured TDs for each sample and 
the mean and standard deviation of this difference calculated. The difference 
data for the two TDs used for the xy solution will be near zero (the "project" 
function is the inverse of the FEHG algorithm). The difference data for the 
third TD is the correction that must be applied to the waypoint value which 
will force it to be consistent with the other two TDs. This correction can be 
applied and the waypoint TDs are restored (K23). The calculations can then te 
checked by using the three TD solution (K17) to convert the other trackline 
data file to xy positions. The function, Measured-Projected TDs (K27) is 
applied to this data set. The result is a measure of the average fix triangle 
for the data set. Figure 11 is a summary of this supplemental data analysis 
procedure. 


Channel Edge 


An iterative approach must be used for the channel edge survey case. TD 
data should be collected along channel edges, the channel centerline (if a 
range is available), and at aids-to-navigation near the waypoint and along 
channel edges. The TDs of a fixed aid near the waypoint (a buoy may be used 
if it is the only aid available) should be stored temporarily as a first 
estimate of the waypoint TDs (K23). The corresponding xy coordinates are 
calculated using the Daisy Chain (K22) function from the local origin. The | 
offset of the waypoint from the aid-to-navigation can be estimated from the 
navigation chart for the area and used in the Move (K24) function to calculate 
the estimated waypoint TDs. 


The TD data collected in the area around the waypoint can be converted to 
xy and along/cross track position coordinates using function K17, Convert TD 
Data to xy and AT/CT. The converted data can be plotted and compared to the i 
navigation chart. Function K18, Plot XY Data, will plot the position data on 
the CRT or 9872A plotter. The plot can be scaled to a navigation chart scale " 
(e.g, 1:10,000, 1:20,000, 1:40,000, 1:80,000) or automatically scaled for the 
rang2 of xy data. The function K19, Plot Along/Cross Track Data, 
automatically scales and plots the calculated cross track vs along track data. 
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-Calculate intersection of survey tracklines (K21) 


eCheck quality of trackline data and waypoint solution 

correlation coefficients (.9 - .999) 

etrackline residuals (.020 - .060 microsec) 

eestimated rms error or waypoint solutions (function of residuals, 

sample number, crossing angle, and survey pattern) 

closure of waypoint solutions (difference between waypoints 
estimates less than twice the sum of estimated rms errors) 

-crossing angles 


-If data is not satisfactory, edit suspect data from data files and 
restore (K16), and recompute waypoint (K21). 


eIf data still not satisfactory, resurvey waypoint. 
«Choose the waypoint estimate with the lowest rms error as the waypoint 
value (estimates with approximately the same estimated rms error may be 


averaged) and store in the waypoint table (K23). 


Calculate xy position of waypoint referenced to local origin and store 
\ in the waypoint table (K24). 


| -Restore the waypoint table in the waypoint file (K23). 





Figure 10 
Waypoint Calculation, Range-Range Data 


-Calculate and store waypoints TDs using standard range-range approach 
(figure 10) 


Convert the TDs for one of the survey tracklines or a nearby 
aid-to-navigation to xy coordinates (K17) using the two TD solution 
and two good TD estimates. 





-Use Measured-Projected TD function (K27) to calculate a correction 
for the third TD 


-Apply correction and restore waypoint TDs in waypoint table (K23) 


Convert TDs for other survey line to xy coordinates (K17) using the three 
TD solution 


-Use Measure-Projected TD function (K27) to calculate average fix triangle 
If results not reasonable, recheck calculations 


-Restore waypoint table on waypoint file (K23) 





Figure 11 
Supplemental Range-Range Waypoint Calculation 
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The xy and along/cross track plots can be compared to the navigation chart 
(and COE dredging charts if available). If the plotted data is consistent 
with the chart, then the calculated waypoint TD coordinates are good. If the 
plotted data and navigation chart do not agree, the offset of the waypoint can 
be determined from the plots. The waypoint can then be "moved" using K24 and 
the xy and cross track data can be recalculated and replotted. This process 
must be repeated until the plotted data agrees with the navigation chart and 
COE data. 


Figure 12 is a summary of the data analysis procedure for calculating the 
TDs for a waypoint with channel edge data. 


Calculate the average TDs for a data file collected at an 
aid-to-navigation near the waypoint (K2). 


-If the survey officer's notebook indicates that some data samples 
are suspect, edit these samples (K16) before calculating statistics. 


-If the standard deviation of the TDs are significantly higher than 
observed at dockside, check the data for outliers using the Plot TD 
(K4) and Plot Residuals (K5) functions and edit suspect data (K16). 


-Store the TDs for the aid-to-navigation near the waypoint as a EEOMBOE REY. 
waypoint (K23). 


«Calculate the xy coordinates of the temporary waypoint using the local 
origin as the reference point (K22). 


-Offset the TDs and position from the temporary waypoint to the waypoint 
using a differential position estimated from the navigation chart or COE 
data (K24). 


-Convert TD data collected along channel edges, channel centerlines, and 
at aids-to-navigation to xy and along/cross position (K17). 


“Multiple data files may be read into computer memory using the LINK 
(K25) function 


«Compare xy and along/cross track plots (K18, K19) to the navigation chart 
and COE data. 


-If the plots do not agree with the navigation chart or COE data, 
calculate the offset in the waypoint that is necessary and use the Move 
(K24) function to reposition the waypoint. 


«If the waypoint is "moved," recalculate xy and along/cross position data 
(K17), plot (K18, K19), and check plots against the navigation chart and 
COE data. 


«When the waypoint is satisfactorily positioned, restore the waypoint 


table in the waypoint file (K23). 


Figure 12 
WAYPOINT CALCULATIONS - CHANNEL EDGE DATA 











Waypoint Verification. If the waypoint was calculated using the channel edge 
data, the waypoint calculations are verified in the process of calculating the 
waypoint. The waypoint TDs are modified until position data converted from 
TDs for channel edges and aids-to-navigation agrees with the navigation chart. 


In the case where the waypoint is defined by the intersection of two 
ranges, data should be collected along the entire length of the channel 
centerline during the survey. Data is usually also collected along channel 
edges and at several aids-to-navigation. Data collected along the channel 
centerline can be converted to xy and along/cross track coordinates using 
function K17. The plot of cross track vs along track (K19) is the best 
indicator of waypoint quality. If both waypoints are good and the vessel 
track was close to the centerline over the entire length of the channel, the 
cross track distance will be zero or near zero at both endpoints (e.g., at the 
waypoints). There may be a slight "bow" in cross track near the midpoint of 
the channel length. If the bow is severe a trackpoint can be inserted between 
waypoints. If the cross track distance is not near zero at one or both 
waypoints, recheck the waypoint calculations and check the survey notebook for 
comments as to whether the vessel was on range. It is good survey practice to 
collect data along the entire length of the channel several times during the 
survey. Several of these runs can be checked for consistent results before it 
is concluded that a waypoint is in error or a trackpoint is necessary. Data 
along channel edges and at aids-to-navigation can also be converted to xy and 
along/cross track position and plotted (K18 and K19). The plots can be 
compared to the navigation charts and COE data for agreement. 


Another check of waypoint calculations is to calculate xy positions (using 
3 TDs) for TD data collected in the vicinity of a waypoint and use the 
Project-Measured TD function (K27) to calculate the average TD fix triangle. 
The project function is the inverse of the Convert TD to XY and AT/CT function 
(K17). For each xy position, a set of TD values is calculated based on the 
distance from the waypoint position and the waypoint TDs. These calculated 
TDs are differenced from the measured TDs for each data sample. Statistics 
for the resultant differences are calculated and a summary table is printed on 
the hard copy printer. 


Trackpoint Calculation. The need and location of a trackpoint can be 
determined from the along/cross track plot (K19) of a centerline data file. 
The trackpoint is generally placed where the "bow" in the plot is at a 
maximum. (See Figure 13.) The Move function (K24) in the range/bearing mode 
is first used to calculate the "ideal" TD and xy at the point on the trackline 
where the trackpoint is to be located. The changes in TD and xy calculated by 
K24 are applied to the waypoint values and stored in the waypoint table (K23) 
as the first estimates of TD and xy for the trackpoint. These trackpoint TD 
and xy coordinate values are simply an interpolation of the values at the two 
waypoints at each end of the trackline. To provide a correction for the "bow" 
in the along/cross track plot, the Move function is then used to offset the 
trackpoint in the crosstrack direction a distance equal to the magnitude of 
the “bow." The resultant TD and xy calculations are then stored in the 
trackpoint file. The trackpoint coordinates can then be used as the "to" 
waypoint for TD to xy calculations and the resultant along/cross positions 
replotted as a check of the trackpoint calculations. In some cases there may 
be a requirement for more than one trackpoint. 
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Additional trackpoints can be calculated as outlined above using the first 
trackpoint as one of the two waypoints. A sample worksheet for calculating 
trackpoints is shown in Figure 14. Rows 21-24 of the waypoint table are 
generally set aside for trackpoints. 


Alternately, a trackpoint can be calculated using the range and bearing 
from the waypoint directly to the trackpoint and the MOVE functionto calculate 
the TDs in one step. The range (Rt) for the MOVE is 


Rt = (R2 + (bow)2)1/2 (31) 
where 
R = along track distance from the waypoint to the trackpoint 
bow * magnitude of bow in centerline data at R 


The bearing angle, B, for the MOVE is the sum of the course angle between 
waypoints (calculated from waypoint TDs) and the differential angle (dA) to 
the trackpoint 


dA = arctan (bow/R) (32) 


The course angle between waypoints (a) is found using functions (K17), convert 
TD Data to XY and AT/CT Position, and (K22), Daisy Chain. The bearing angle 
(B) is 


B= A+ dA (33) 
ELECTRONIC POSITIONING AUGMENTATION 


The visual survey technique is difficult to apply in areas where there are 
no visual ranges, the channel boundaries are not distinct, and the channel is 
marked primarily with floating aids to navigation. However in such areas it 
is usually possible to provide electronic positioning coverage over a large 
area with a small number of reference stations. In such areas it becomes 
reasonable to use electronic positioning as a position reference for harbor 
Loran-C TD survey. 


APPROACH 


With electronic positioning available, the survey vessel should be 
stationed approximately at the waypoint and position and TD data recorded 
simultaneously. The position of the waypoint can be precalculated from COE 
survey data. Since the position of both the survey vessel and waypoint are 
known, the differential TD offset between the vessel and waypoint can be 
calculated accurately. This offset is calculated sample by sample, applied to 
the measured TDs, and the resultant TD data averaged to estimate the waypoint 
TD. 


36 


a gn heme 


f hiciaalet celta atime ly GR ae a 








ee - - a : 


TRACK POINT CALCULATIONS: 
*Trackpoint between WP and WP 


‘Distance of Track point from WP » R= 


i *Bearing from WP TO WP » B= 
*Results of "MOVE" of R&B from WP 


dTDX = dTDY = aqdTDZ = 
we TDX = TDY = TDZ = 


First Estimate “ 
of Trackpoint 


dx = dy = 


, | we Trackpoint XY Position X= Y= 


Trackpoint XY = E 


*Trackpoint stored as WP 3 (K23) 





*Magnitude of offset (e.g., BOW), M = km 


‘MOVE trackpoint; Ry = M, By = B+90 = (+ if bow to right) 


*Results of "MOVE" of RM/BM from trackpoint estimate: 


Estimate of . 











Trackpoint 
Bo Vg Trackpoint XY Position X = Y= 
i dx = dy = 
a Trackpoint XY 4. E, N 





*Recalculate xy and AT/CT position for verification data using 
trackpoint (K17) 


*Replot AT/CT data (K19) 


*If trackpoint satisfactory, restore waypoint table on waypoint file 


ef TRACK POINT WORKSHEET 


Figure 14 
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TD and electronic positioning data should be collected along the channel 
edges and centerline. Loran-C TD fixes can be compared to electronic 
positioning fixes to evaluate waypoint estimates and determine the need for 
trackpoints. ) 


The use of electronic positioning simplifies shipboard data collection 
procedures and provides the capability to quantitatively evaluate the 
performance of Loran-C navigation using the calculated waypoints. It does 
however increase the complexity of the TDSS and infield logistics. There is 
also a significant increase in the time and effort necessary in the planning 
stage to prepare for the survey. 


PRESURVEY PLANNING 


Preplanning 


The preplanning necessary for a harbor survey using electronic positioning 
is similar to the planning necessary for a visual survey. The survey strategy 
for each waypoint will be the same, i-e., station the survey vessel near the 
waypoint and record TD and positioning data. COE dredging data, e.g., 
coordinates of channel boundaries, is essential to this type survey. This 
data and the locations of reference stations which can be used to provide 
coverage of the survey area must be collected well in advance of the survey. 
The reference stations must be visited prior to the survey to insure that the 
survey markers have not been destroyed and that there is line-of-sight from 
the reference station to the survey area. 


Waypoint Definition 


The navigation chart for the area to be surveyed can be used initially to 
determine the location of waypoints. Where there are well defined channels, 
the intersections of channel centerlines are commonly defined as the 
waypoints. In an area where there is not a well-defined channel, local Coast 
Guard A-to-N personnel and users should be consulted to determine common 
vessel tracklines through the area. The intersections of these tracklines are 
defined as waypoints. 


COE Dredging Data and Reference Stations 


The COE dredging data define the channel boundaries in state-plane 
coordinates. Coordinates are also usually available for fixed aids to 
navigation in the survey area. These data and the reference station 
coordinates and descriptions are obtained from the COE office for the survey 
area. Figures 15 and 16 are examples of data for the Sandy Hook area of New 
York harbor. 


The reference stations to be used for the survey area should be visited in 
advance of the data collection phase to insure that the survey markers still 
exist and there is line-of-sight from the station to the survey area. It is 
not uncommon for survey markers to have been destroyed since the last visit by 
the COE. In urban areas, new construction may obscure the line-of-sight from 
the reference station to the survey area. If the station has been destroyed 
or the line-of-sight obscured, an alternate station must be found. 


The visit to the reference station also enables the survey party to plan 
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COE DREDGING DATA (SANDY HOOK) 
FIGURE 15 
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COE DREDGING DATA (SANDY HOOK) 





the logistics and personnel requirements for deploying the electronic 
positioning system transponders. Must the station be attended? Is there 
electrical power available? What is the travel time between reference 
stations? 


Coordinate Conversion and Waypoint Position 

fo compare Loran-C position fixes and electronic  aitionine fixes, a 
common planar (i.e., xy) coordinate system must be used. A local eetein: with 
known state plane coordinates (or latitude, longitude) must be chosen at a 
central point in the survey area. If the entire harbor survey is done using 
electronic positioning, it is not necessary to be able to measure TDs at the 
local origin. The coordinates of the channel boundaries, fixed 
aids-to-navigation, and reference stations must be calculated relative to the 
lecal origin and the units converted from feet to kilometers. 


The coordinates of waypoints are calculated based on the coordinates of 
the channel edges. There are two general approaches for calculating waypoint 
xy coordinates. 


a. If the waypoint lies midway between two channel endpoints, the 
coordinates for the waypoints are simply the sum of the endpoint coordinates 
Givided by two. See figure 17. 


Wer Cx,o ¥a)/2, 
‘ee 705, 42 Ve, 


Straight Corner 
Figure 17 


b. If the waypoint is located at a cutoff corner (see figure 16), the 
waypoint must be calculated by using the channel edge data to write equations 
for the channel centerlines in the local coordinate system and then calculate 
the intersectian of the two centerlines. The equation for the centerlines can 
be written in the following fora: 


Y-¥1 * My (z-2}) 
Y-¥2 * M2(x-x9) 
where x}, ¥1, are the coordinates of any point on the centerline 
of channel one 


Rae Y2 are the coordinates of any point on the centerline of 
channel two 


M, is the tan of the course angle for channel one 
M2 is the tan of the course angle for channel two 
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The course angles for the channel are usually listed in the COE data 
or can be readily calculated from two points on the channel edge, 
@.Goy Mz @ tan ((¥g~¥3)/(Xg-Xq)) in figure 18. 










Cutoff Corner 


Figure 16 











The coordinates of the waypoints in the local grid coordinates can be 
converted to latitude and longitude by first converting back to state-plane 
coordinates and then to latitude, longitude. The algorithms. provided in 
Reference 3 permit conversion to state-plane coordinates from latitude, 
longitude and vice versa. The latitude and longitude of the waypoints are 
useful for predicting waypoint TDs and for describing the waypoint location to 
users. 


Waypoint and Loran-C Chain Data Piles 
The data analysis program for a harbor Loran-C TD survey using electronic 


positioning augmentation, COMPAR, can be used during the the survey planning 
and data analysis phases. User instructions for COMPAR are contained in 
Appendix B. The program stores and uses three foras of base data files: 
Waypoint, Loran-C chain data, and Electronic positioning reference station. 
The Loran-C chain file contains the transmitter geodetic positions, 
' transmitted power level and secondary emission delays. The waypoint files 
store waypoint TDs, latitude, longitude, and xy coordinates relative to the 
i local origin. The waypoint file is a 25X8 matrix. Each row contains the data 
: for one waypoint. Waypoint 25 is assigned to the local origin. ‘The waypoints 
no in the survey are divided into convenient sequences and nmabered. A waypoint 
: file is created for each sequence. ‘The number of waypoints in each sequence 
: is usually limited to twenty. This allows four spaces in the file for 
trackpoints if needed. The local origin is stored in the waypoint 25 position 
in each waypoint file. It is not necessary to be able to measure the TDs at 
the local origin for an EPA survey. 


































Use COMPAR, the Loran-C chain file, and geodetic positions of the 
; waypoints to predict the TDs for each waypoint. The predicted TDs, calculated 
fi local xy coordinates, and geodetic coordinates of the waypoints can then be 

B~ stored in waypoint files. 
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The reference station file must contain the state plane coordinates of the 
reference stations. The coordinates of the reference stations are used with 
the electronic positioning data to calculate vessel position. 












Survey Plan Preparation 


The aids to navigation at which the survey vessel will be stationed are 
selected from the navigation chart for each waypoint. If available, several 
aids which bracket the waypoint are chosen. 












The TDSS can be used as a navigation aid when collecting electronic 
positioning data. If no aids are available near the waypoint, the TDSS can be 
used to station the vessel near the waypoint (preferred method) or maneuver in 
a cloverleaf pattern about the waypoint. It also provides cross track and 
along track position with respect to a trackline that is input in the form of 
start and stop points. Therefore, the TDSS can be used along the channel 
edges and the channel centerline (or any arbitrary trackline in the coverage 
area of the electronic positioning system). The end points of tracks that 
will be run to collect validation data can be recorded for use during the 
survey. Typically, verification runs are made along both channel edges and 
along the channel centerline. 












DATA COLLECTION 






Time Difference Survey System 
The TDSS is designed to operate with the Mini-Ranger III Position 


Determining System. The HP9845 Desktop Computer and Mini-Ranger are connected 
via 16 bit and BCD interfaces. The 16 bit interface provides remote control 
of the Mini-Ranger; the BCD interface inputs range data. 












Mini-Ranger. 
The Mini-Ranger consists of a range console, control station 
receiver/transmitter unit, and two remote reference stations. The system 
operates in the 5400 to 5650 MHZ frequency band. Range resolution is one 
meter. Standard deviations of the range measurement vary with distance to the 
transponder (reference station). Typical values are 1 to 3 meters over the 
span of ranges of 5 km to 27 km. Each transponder unit can be individually 
calibrated to a known distance (see Mini-Ranger Calibration). 











Graphics Display. 

The TDSS provides two additional graphics display options when Mini-Ranger 
data is collected. Vessel position is calculated from the range data for each 
sample. The vessel position can be plotted on an xy or along/cross track 
scale. The xy display plots position relative to a waypoint or a point of 
interest (e.g., a fixed aid-to-navigation) entered in local coordinates. The 
operator also selects the area about the waypoint (or point of interest) that 
will be displayed. The along/cross track plot automatically scales the 
vertical height of the plotting area on the CRT to the distance between the 
start and stop points. The horizontal axes, cross track distance, is scaled 
to 200 meters either side of the trackline. 
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Mini-Ranger Calibration. 

The Mini-Ranger is calibrated by adjusting measured distances for each 
transponder to agree with a known distance. Calibration is accomplished in 
the field using one of the methods below: 


a. A calibration range is set up by marking off a distance in a clear 
area where the transponders, control station R/T unit, and range console can 
be set up. A distance of several hundred meters is sufficient for 
calibration. The disadvantages of this approach are that the range console 
and control station R/T unit must be removed from the survey vessel, and that 
an accurate distance must be measured independently of the Mini-Ranger. An 
advantage is that the calibration range can be set up in an area near the 
survey vessel that is easy to access, e.g., a large parking lot or a straight 
section of a lightly traveled roadway. 


b. Use two existing survey markers as a calibration range. The 
disadvantages of this approach are that the equipment must be removed from the 
survey vessel and considerable time and travel may be involved to set up the 
transponders. Advantages are that a calibration range does not have to be 
measured and the survey markers can be chosen such that the calibration 
distance is the same order of magnitude as ranges expected during the survey. 


c. Moor the vessel to a fixed aid to navigation with known coordinates in 
the survey area. Calculated distances between reference stations and the 
fixed aid are used as the calibration range. This is an ideal situation if 
such an aid exists and the transponders are visible from the vessel when it is 
mocred to the aid. Care must be taken to measure offsets between the survey 
marker and control station R/T unit. 


Periodic checks of the Mini-Ranger calibration should be conducted during the 
survey period. The calibration may be checked by using one of the above 
calibration approaches or: 


a. if it is possiole to cross the baseline between the two reference 
stations, the minimum sum of ranges should equal the baseline distance. 


b. if there is an unsurveyed fixed aid or any location within view of the 
transponders where the survey vessel ma: be moored, ranges to the transponders 
can be measured shortly after calibration and recorded. The survey vessel 
periodically returns to this location to check that there is no change in the 
measured ranges. 


c. if there is a visual range in the survey area, the survey vessel is 
centered on the range and cross track calculations are compared to visual 
observations. Care must be taken that the trackline start and stop points 
(e.g., waypoints) are entered correctly. 


Waypoint Data 


Loran-C TD and Mini-Ranger data are collected at aids-to-navigation near 
the waypoint. The survey vessel is usually moored to the aid as a matter of 
convenience. However, it is not necessary that che vessel be still in the 
water to collect data. If the .=1 state is such that it is not prudent to tie 
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off to an aid, the data can be collected with the vessel stationed near the 
aid using it as a reference. Between 25 and 50 data samples are sufficient at 
each aid. 


In the rare cases where there are no aids-to-navigation in the area of the 
waypoint, the TDSS is used as an aid to navigation to position the survey 
vessel near the waypoint. Some practice is necessary before using the TDSS to 
position the vessel since there is approximately a 10 second delay (depending 
on the sampling rate) after a sample is requested until the position is 
plotted on the graphics display. 


Occasionally the path between the survey vessel and reference station is 
obscured by another vessel. The TDSS is designed to time out if a sample is 
not received from the Miniranger within three seconds of a data request. A 
"TIME OUT ERROR" warning statement is printed on the hard copy printer any 
time a time out occurs and TD data is not collected. 


If the range data received from the Mini-Ranger is not within 1 km of the 
previous sample, the data is rejected and a "RANGE ERROR" is printed. This 
feature automatically edits most multipath data. Occasionally a bad range 
sample will pass the range test. These samples are easily detectable on the 
xy or along/cross track plot. When such errors are observed, the sample 
numbers should be recorded for later editing. 


Waypoint Verification Data 
Data to be used for waypoint verification and trackpoint calculation if 


necessary is collected along channel edges and centerlines. The TDSS can be 
used to provide near realtime along/cross track position information for both 
channel edge and channel centerline data collection runs. It is not necessary 
to maintain the vessel track accurately along the channel boundary or 
centerline. Since position data is collected, a sample by sample comparison 
of Loran-C position fixes using calculated waypoints and Mini-Ranger position 
fixes is possible. Data should be collected nominally along channel edges and 
channel centerlines to evaluate the performance of Loran~C navigation over the 
entire channel. 


DATA ANALYSIS 


COMPAR 

A Hewlett Packard HP9845 desktop computer and the program, COMPAR, are 
used to analyze the data collected during a harbor survey using electronic 
positioning augmentation. The program, COMPAR, is a collection of special 
function programs which can be used to: 


a. calculate waypoint TDs and 
b. evaluate the performance of the resultant waypoints. 


The program COMPAR includes 19 function programs selected by special 
function keys. The functions with short descriptions are divided into five 
groups below. 


Presurvey Planning Group 





a. Predict TDs, K20: This key calculates predicted TDs for an input 
latitude, longitude based upon an all-sea water earth. The program also 
outputs range and bearing to transmitter stations and GDOPs for the three TD 
and two TD fixes. 


b. File or Read Waypoint Data, K23: This key is used to create waypoint 
table files and to edit and restore waypoint table files. It can also be used 
to obtain a listing of the waypoint table. The waypoint table is a 25x8 
matrix. The first four columns contain waypoint TD values (TDW, TDX, TDY, 
TDZ). Columns five and six contain the xy position referenced to the local 
origin. Columns seven and eight contain the latitude and longitude in decimal 
degrees. Waypoint 25 (e.g. row 25) is designated as the local origin. The 
latitude and longitude stored in this location are used by any program 
function which calculates the local xy coordinates of the transmitters. If 
the local origin is also one of a sequence of waypoints, its parameters will 
be stored twice, i.e. in row 25 and in the row corresponding to its logical 
waypoint number. 


c. Store Chain Data, K26: This key stores Loran-C chain data 
(transmitter geodetic positions, transmitter power levels, and secondary 
emission delays) on a data file for later use. File names are a five 
character neumonic for the particular Loran-C chain. The first four 
characters are an abbreviation for the chain (e.g. NEUS, SEUS, GTLK, etc.). 
The fifth character is a number from 1 to 4 which designates the configuration 
of three TDs: 1 = XYZ, 2 = WXY, 

3 = WXZ, 4 = WYZ. 


d. Store Reference Station Data, K28: This key is used to store 
reference station coordinates on a file for use in converting range data to xy 
coordinates. 


Data File Handling Group 


a. Read Data File, KO: This key reads time-difference (TD), range and 
time-of-day data stored on magnetic tape. The range and TD data may be 
corrected for known errors. If the range data is corrected, a lower case "r" 
is annotated to the file name, F$. If TDs are corrected, a lower case "t" is 
annotated to F$. 


b. Edit Data, K16: This key is used to edit (i.e. remove) samples from 
the data arrays. Four options are available to the user: 


(1) The first option deletes a single data sample in each data array. 

(2) The second deletes a block of data samples. 

(3) The third deletes samples with TD samples outside a range that is 
input by the operator. 

(4) The fourth deletes samples with outliers in the range data. The 
routine compares each range with the average of the previous and next sample. 
If there is a difference of more than 100 meters, the sample is deleted. 


Unfortunately, this technique usually deletes the outlier and the sample on 
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each side of the outlier. This is normally not a significant problem, i.e. 
nine samples will be deleted rather than three. The alternative is to detect 
the outliers and the corresponding sample number using the Plot XY Position 
function (K18) and use the single sample delete option. 


When editing of the data arrays is complete, the operator may store the edited 
data on a new file for later use. 


NOTE: The edit function deletes only data samples. Arrays containing XY and 
along/cross track position data are not affected. Functions Kl and K17 must 
be repeated to reflect the editing on computed positions. 


c. Link Data Files, K25: enables multiple data files to be loaded into 
memory. Range and TD data can be corrected for each file entered. The total 
number of samples must be equal to or less than 400. The function will 
automatically ignore any samples which would cause this limit to be exceeded. 


Statistics and Regression Group 


a. Calculate Statistics and Linear Regression of TD Data, K2: This key 
calculates statistics, linear regression coefficients, and minimum and maximum 
for the four TD arrays. Statistics ahd regression parameters calculated are: 


(1) mean for each TD 

(2) standard deviation for each TD 

(3) covariance of TD pairs 

(4) correlation coefficient of each TD pair 

(5) linear regression slopes of each TD pair 

(6) standard deviation of residuals for each regression line 


b. Plot TD Data with Regression Lines, K4: This key plots two of the 
time-difference arrays against each other and also plots the linear regression 
line for the TD pair chosen. The program automatically scales the plot for 
the minimum and maximum TDs for each array. The axes are drawn through the 
mean for each TD. Minor tic marks are every microsecond and major tic marks 
every 10 microseconds. 


c. Plot Residuals, K5: This key plots the residuals from the linear 
regression of any TD pair (See K2). The residuals may be plotted against 
sample number or the independent variable. Residuals are normalized to the 
standard deviation of the residuals. Normalized values greater than 5 are 
printed on the hard copy printer and are not plotted. 


Position Calculation Group 


a. Convert Mini-Ranger Data to XY and Along/Cross Track Position, Kl: 
This key converts Miniranger range data to cartesian xy coordinates relative 
to a local origin. Cross track and along track data are also calculated. 
Trilateration is used to calculate xy position using distances measured to two 
reference stations and the distance between reference stations. Cross track 
and along track position are calculated relative to a trackline between two 
waypoints. 
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b. Convert Loran-C Data to XY and Along/Cross Track Position, Kl17: This 
key converts TD data to xy and along/cross track positions using the FEHG 
algorithm and surveyed waypoints. The program will compute either a three or 
two TD solution. A summary table is printed on the hard copy printer which 
lists: 


-chain and LOPs used in the solution 

-file name 

~bearing angle between waypoints used for along/cross track calculation 
-rms trackline of data 

“average cross track position 

“standard deviation of cross track position 

“average xy position 

“standard deviation of xy position data 


c. Plot XY Position, K18: This key plots the xy data calculated from 
Loran-C TDs and/or Mini-ranger data. Four options are available: 


(1) Mini-ranger data only 

(2) Loran-C data only 

(3) Mini-ranger and Loran-C data 
(4) Error plot ' 


The first two options allow the operator to blow-up a section of the plot, to 
find the sample of numbers of outliers, and to digitize up to 10 locations on 
the plot. A hard copy option is provided with all four plots. The "Error 
plot" plots a vector at each sample. The tail of the vector is the 
Mini-ranger position fix; the head (denoted by a “o") is the Loran-C position 
fix. 


d. File or Read Waypoint Data, K23: See Presurvey Planning 


e. Plot Along/Cross Track Data, K19: This key plots cross track vs along 
track position. Three options are available: 


(1) Mini-ranger data 
(2) Loran-C data 
(3) Mini-ranger and Loran-C data 


Waypoint Evaluation Group 


a. Compare Mini-Ranger and Loran-C Position Data, K3: This key compares 
Loran-C derived position with miniranger calculated position. Mini-ranger 
positions are assumed to be “truth" and the difference between the Loran-C 
position and Mini-ranger position is the Loran-C position error. Two sets of 
position errors are calculated, XY and along/cross track. The XY errors are a 
direct comparison between Mini-ranger and Loran-C derived positions. The 
Miniranger along/cross track position is based on the local coordinates of the 
waypoints. The Loran-C along/cross track position is relative to the course 
line calculated from the difference in TDs between waypoints. 


The following parameters are calculated: 
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(1) average x and y position error 

(2) rms x and y position error 

(3) average along and cross track error 

(4) rms along and cross track error 

(5) rms radial error based on xy position errors 

(6) rms radial error base on along/cross track errors 


b. Calculate TD Grid Warp, K21: This key calculates the difference 
between measured TDs and TDs projected from a nearby waypoint. This 
difference is termed "TD grid warp" and is basically a measure of the change 
in Additional Secondary Phase Factor (ASF) over the area where data was 
collected. TDs are projected from the waypoint to the measurement point based 
on the difference between the measured and waypoint positions. There is a 
small error in the calculation due to use of a flat earth model for 
transmitter locations. This error is typically less than 40 nanosec within 
12KM of the waypoint. 


ce Plot XY Position, K18: See Position Calculation Group. 


d. Plot Along/Cross Track Data, K19: See Position Calculation Group. 


Waypoint Calculations 
The primary method to calculate waypoint TDs is to "reflect" TDs collected 


near a waypoint to the waypoint. The "reflect" function (see K27) calculates 
the difference in TDs between the measurement position and the waypoint 
position. This difference is applied as a correction to the measured TDs for 
each sample. The mean and standard deviation of the "reflected" TDs are then 
calculated. 


The standard deviation of the reflected TDs are normally slightly larger 
than the standard deviations of data collected at dockside. Outliers in the 
Mini-ranger data are the usual cause of high standard deviations in the 
reflected TD data. It is a good practice to edit the data for range errors 
(K1i6, option 4) prior to reflecting the data to the waypoint. 


Data can be collected at several points near a waypoint (typically moored 
to or stationed near a buoy in the vicinity of the waypoint). An optional 
data collection technique is to maneuver the survey vessel in a cloverleaf 
pattern centered at the waypoint. Waypoint TD estimates are calculated from 
each data file. The results are compared to each as a check for errors. 
Agreement to within 20 to 30 nanoseconds of the mean can be expected. 
Differences are the results of estimation errors due to noise, uncorrected TD 
offsets, the difference in distance between the measurement positions and the 
waypoint, uncorrected range errors, etc. It is the judgement of the data 
analyst how to combine the waypoint TD estimates for each data file to form 
the final TD estimate. The most straightforward approach is to average the 
estimates. Figure 19 is a flow chart for calculating waypoints TDs. 


Note that the "Daisy Chain" function is not used to calculate waypoint xy 
coordinates. The COE based coordinates are retained in the waypoint file. 
The "Daisy Chain" function is used to check that the range and bearing 
calculated between waypoints using the difference in TDs is approximately the 
same as calculated using the COE based coordinates. 
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-For each data file collected near the waypoint of interest 


~Read data file (KO) 





Correct range data 
Correct TD data 


“Edit data for range errors (K16, option 4) 
-Convert range data to xy position (K1) 


“Reflect TDs to waypoint of interest (K27) 









Calculate final waypoint estimate (i.e. average results 
from each data file) 


-Store waypoint TDs in waypoint file (K23) 





-Do not change xy position of waypoint 


FLOWCHART OF WAYPOINT CALCULATIONS, EPA SURVEY 


FIGURE 19 
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Waypoint Verification 

The TD and Mini-Ranger data files collected along channel edges and 
centerlines can be used to compare the position fixes obteined from 
Mini-ranger and the positions calculated from the TDs using calculated 
waypoints. This comparison provides a verification of the waypoint 
calculations, provides a measure of performance which may be expected using 
a Loran-C navigation device (e.g., PILOT), and enables the data analyst to 
decide if a trackpoint is necessary between waypoints. 


The coordinate system for waypoints and Mini-ranger reference stations 
are based on Army Corps of Engineers (COE) dredging data. The COE 
coordinates are in state plane coordinates. These coordinates can be 
translated to local coordinates by subtracting the state plane coordinates 
of the local origin and changing units from feet to kilometers. Waypoints 
are calculated as the intersection of channel centerlines. (See Presurvey 
Planning. ) 


The position fixes for Mini-ranger data are computed using 
trilateration. Along and crosstrack positions are based on the range and 
bearing calculated between tabulated waypoint coordinates. 


The Flat Earth Hyperbolic Grid (FEHG) algorithm is used to compute xy 
coordinates from TD data (K17). Inputs to the algorithm are calculated 
waypoint TDs, waypoint xy coordinates and transmitter xy coordinates. The 
transmitter xy coordinates are referenced to the local origin. The FEHG 
algorithm is also used to calculate the coordinates of the next waypoint for 
along/cross track calculations. 


The function "Compare Mini-ranger and Loran-C Position Data" (K3) 
calculates the difference in xy position and along/cross track position for 
each data sample and the mean and rms values of the differences for the data 
eet. If the Mini-ranger positions are assumed to be "truth," the result is 
an evaluation of the accuracy of the Loran-C fixes for the data set. Plots 
are provided for the xy "errors" and along/cross track "errors." Plots of 
the xy data and along/cross track data on the same axes are also available 
(K18 and K19). 


One must be careful to compare “oranges to oranges" when evaluating the 
"error" statistics and plots generated by the function K3. The domain in 
which a Loran-C harbor navigation device (e.g. PILOT) operates is distances 
relative to a trackline defined by two waypoints (i.e. along/cross track). 
The xy “error" data is interesting, but its only significance is that the x 
and y errors should approach zero near the "TO" waypoint (along track 
distance = 0). Large xy errors near the "TO" waypoint is indicative of an 
error in the waypoint, the Mini-ranger data, or the Loran-C data. 


The along/cross track "errors" are the more significant. If both the 
waypoint "TO" and “FROM waypoint calculations are correct, the cross track 
distance "errors" at each end of the trackline will be near zero. The along 
track distance errors should converge to zero at the "TO" waypoint. Note 
that for the Mini-ranger data, along and cross track distance are calculated 
using the distance and bearing calculated between the waypoint coordinates 
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determined from COE dredging data (see Figure 20). For the Loran-C data, 
the "TO" waypoint xy coordinates are the same as those used in the 
Mini-Ranger calculations. The "FROM" waypoint coordinates (Q) in Figure 

20) are calculated using the FEHG algorithm and the waypoint TDs. The range 
and bearing between P and Qj (Rp and Az) are not, in general, equal to 

the range and bearing between P and Q, (BR, and A;). 


Trackpoint Calculations 

Cross track error is the best measure of the expected performance of 
Loran-C navigation between waypoints. The plot of the cross track error may 
exhibit a "bow" between the waypoints. That is, the error will be near zero 
at both endpoints, and there will be a well defined offset somewhere near 
the halfway point. The severity of this bow and the channel dimensions are 
the factors which must be evaluated to determine if a track point is 
necessary. A trackpoint is basically a waypoint located on the centerline 
between two waypoints. The data analyst determines the location of a 
trackpoint(s) by inspecting the cross track error plot. The along track 
distance where a trackpoint(s) is needed is recorded. The function, 
Calculate Grid Warp (see K21), is used to calculate the difference between 
the measured TDs and the TDs projected from the waypoint based on the 
difference in position between the waypoint and measurement point. The 
differences are plotted against along track distance. The correction to be 
applied at the trackpoint for each TD can be picked off the error plot at 
the along track distance the trackpoint is to be located. The ideal TD at 
the trackpoint is calculated using the TD Move (K24) function. The 
trackpoint TD is equal to the ideal TD plus the correction determined from 
the TD error plot. A sample worksheet for calculating trackpoints is shown 
in Figure 22. 
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P - Waypoint 70° xy position; calculated from COE 
Gredging Gata; stored in waypoint table 


Q) - Waypoint °FROM® xy position; calculated from 
COB dredging data; stored in waypoint table 


Q2 - Waypoint °PROM" xy position calculated using 
PEG algorithm referenced to P 


A, - bearing from P to 0) 
Ag ~- bearing from P to 02 
Ry, - range from P to Q) 
Rg - range from P to 02 








Read data file (KO) 







Correct range data 
Correct TD data 






-Edit data for range errors (K16, option 4) 


«Convert range data to xy position (Kl) 







«Convert TD data to xy position (K17) 
(Use same "TO" and "FROM" waypoints as above) 





-Compare the two sets of xy data (K3) 






»Plot xy data (K18) - optional 






-Plot along/cross track data (K19) - optional 







If cross track errors are significant 


Calculate grid warp (K21) 
Calculate track point 








SUMMARY OF PROCEDURE TO COMPARE POSITION DATA 
CALCULATED FROM MINI-RANGER AND LORAN-C 






FIGURE 21 


TRACKPOINT CALCULATIONS (EPA SURVEY) 


-Trackpoint between WP and WP 
eTrackpoint location; from WP 
Range = 
Bearing = 


-For "MOVE" of R, B from WP 


dTDW = dTDX 
dX = dY = 


«For WP 


TDW TDX : TDY 
X= Y= 


-TD(WP___) + dTD = FIRST ESTIMATE OF TRACKPOINT 
TDW = TDX = TDY = 
For TD "WARP" Plot; TD corrections are: 

cTDW = cTDX = cTDY 
eTrackpoint TD = FIRST ESTIMATE + CORRECTION 
TDW = TDX = TDY 


-Trackpoint XY 


X(TP) = X(WP___) + dX Y(TP) = Y(WP___) 
X(TP) = Y\TP) = 


TRACKPOINT CALCULATION WORKSHEET 


FIGURE 22 





PERSONNEL, SCHEDULING AND TRAINING 


PERSONNEL 


The minimum recommended survey crew for a Visual Reference Survey is 
three. Two of the survey crew collect data aboard the survey vessel; the 
other remains behind to analyze data and provide necessary support. These 
duties should be rotated during the survey. When Mini~Ranger is used for a 
position reference, the survey crew increases to four or five. One or two 
additional personnel are required to setup and, if necessary, man the 
reference station units. 


SCHEDULING 


A typical harbor area with 20-25 waypoints will require less than two 
weeks to survey. For the test surveys of New York Harbor and Delaware Bay 
and River the survey equipment was installed and tested on a Monday; data 
was collected Tuesday through Friday and Monday through Wednesday of the 
following week; the weekend was used for preliminary data analysis. The 
equipment was removed from the survey vessel in approximately three hours. 

A typical survey day is 10-14 hours from equipment turn-on in the morning to 
the final set of dockside reading upon return. 


The New York (EPA) survey required several visits to the New York area 
to visit the COE, locate reference stations, and become familiar with the 
area. For a Visual Reference Survey a presurvey visit to the area to be 
surveyed is recommended. For an EPA survey, the presurvey visit is 
essential. 

TRAINING 


The members of the survey team should be familiar and/or receive 
training in the following areas: 


Hewlett Packard HP9845 Desktop Computer 
Austron 5000 Loran-C Receiver 

Motorola Mini-Ranger 

Basic Statistics 

Linear Regression Theory 


Coordinate conversion algorithms, particularly the FEHG algorithm 
used in PILOT equipment 


State Plane Coordinates 
SURVEY VESSEL 


The ideal survey vessel is 30-40 feet long with a draft of 2-3 feet. It 
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has twin screw or stern drive propulsion and AC generator capacity of 
approximately 5 kilowatts. Maximum speed is 20-25 knots. There should be 
both interior and flying bridge controls. The cabin area should provide a 
large work area which includes a chart table, space for the TDSS, and a desk 


for data analysis. Electronic equipment should include a fathometer and a 
VHF FM radio. 


Unfortunately, such a vessel is not currently in the Coast Guard fleet. 
A 65 foot harbor tug (WYTL) was used successfully to conduct harbor surveys 
in New York Harbor and Delaware Bay and River. There is enough space in the 
pilot house for the HP9845 computer and Mini-Ranger control unit. In one 
survey the Austron 5000 was located on the mess deck and in the CPO Quarters 
for the other. In both cases the TDSS was operated without the UPS, and no 
difficulties related to electrical power were experienced. 


A commercial vessel was used for each of the surveys of the St. Marys 
River. For the survey of the Mini~chain, a 33 foot Egg Harbor was the 
survey vessel. There was sufficient working space in the main cabin when 
all the furniture was removed. A 38 foot houseboat was used for the survey 
of the Great Lakes Chain. The houseboat provided ideal working space, but 
was not as sea worthy as the Egg Harbor. In both of the St. Marys River 
surveys, the survey crew operated the survey vessel. This provided 
increased flexibility for scheduling survey operations, but is more 
demanding of the survey crew. 


IMPROVEMENTS 


The sections below describe areas for improvement and expanded 
capability (and utility) of the TDSS. Analysis software development to 
support the expanded utility of the TDSS is also described. An area for 
follow on development work is discussed in SURVEY TECHNIQUES. 


TDSS 


Design changes to the TDSS software were frozen in November 1980. 


Several of the following changes were not considered essential to the TDSS 
handoff. 


Initialization 

In the current version of the TDSS software, the parameters for the TD 
graphics display (origin, minimum and maximum limits) must be inserted 
manually. A revision of the data collection initialization software to 
minimize the number of manual entries will simplify the setup for data 
collection during a visual reference survey. This revision can be 
implemented by reading the waypoint file (with predicted or measured data) 
into computer memory. The operator would then enter waypoint number rather 
than TD values. Plot limits could be input relative to the waypoint (e.g., 
-1.0, +2 microseconds for X-axis; -3, +2 microseconds for Y-axis) 


On-Line TD to XY Coordinate Conversion 


Verification data is processed during the data analysis phase of the 
survey. If an on-line TD-XY coordinate conversion capability existed within 
the TDSS, the positions fixes (along/cross track) could be compared to a 
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visual range as check of calculated waypoints and the requirement for a 
trackpoint as the data was collected. The conversion algorithm subroutines 
in TLS1 and COMPAR (Fehg and Fehgt) can be easily added to the TDSS 
software. The along/cross track and xy plots used during EPA survey can 
also be used to plot position data calculated from TD data. The addition of 
on-line TD to xy conversion will also provide the capability to use the TDSS 
to demonstrate Loran-C positioning in harbor areas before a set of PILOT 
tapes is developed. 


Data Storage 


Additional information stored on the data tape would assist data 
analysis. The provision for a comments section to be stored with each data 
file would allow notes taken by the survey party to be recorded with the 
data on magnetic tape. The data analyst would then be provided with a short 
description of the data set, samples to be edited, etc., when the tape was 
read into the HP9845. 


When reducing the data collected during an EPA survey, the analyst must 
refer to the survey notebook for the file names which contain the reference 
station data used for the survey data run. He must also enter which station 
the "R1" transponder was located. This data could be stored as part of each 
data file and input with the TD, range, and time data. 


: | Loran-C Receiver 

bh The Austron-5000 Loran-C Receiver is a heavy and bulky piece of 
electronics equipment. It is also more complicated to operate than most 
modern Loran~-C receivers. A compact modern Loran-C receiver with 10 

| nanosecond resolution (e.g., Internav 404) would simplify transportation, 
; survey vessel installation, and operation of the TDSS. 
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known; it is standard Coast Guard equipment; it has a fixed multi-notch 
BS filter chassis; and it is more versatile than most Loran-C receivers 
4 designed for commercial use. 


‘ 
yt The advantages of the Austron-5000 are that its performance is well 
Y 


Expand Positioning System Capability 


Motorola Mini-Ranger was chosen as the electronic position reference for 
the TDSS because it met the performance requirements and a set of equipment 
was on hand during the TDSS development. Other systems (e.g., Cubic 
AUTOTAPE) are capable of providing satisfactory position data for EPA 
surveys. The TDSS can have a wider range of application if the software is 
also expanded to interface to longer range positioning systems such as 
RAYDIST, ARGO, etc. It could then be used for chart verification in CCZ 
areas as well as harbor surveys. 


ee > Modified TDSS 
A prototype TDSS designed to use an Internav 404 Loran-C receiver has 

been designed and implemented. It uses the same basic data collection 
routines as the Austron 5000 TDSS but dispenses with the receiver control 
portion of the program. The HP 9845 calculator receives a line of TD data 
from the COMMS port of the receiver in much the same way as is employed in 
the PILOT user equipment. A TTL to EIA level shifter is employed between (| 
the receiver COMMS port (TTL) and the RS-232 serial interface on the HP 9845. 
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The Internav 404 TDSS utilizes special function keys 1 through 7. The 
functions are displayed at program initialization and are listed below. 


Kl PAUSE 

K2 CONTINUE 

K3 DATA COLLECT 

K4 START 
K5 STOP 
K6 STATS 
R7 SIGN 


These functions are identical to those described in table 2. 


The LC 404 TDSS program entitled 404S was successfully used to verify a 
visual survey of the St. Laurence River. The EPA portion of the program was 
revised and successfully implemented in a survey of the Strait of Juan de 
Fuca (Washington state). Unlike the Austron 5000, the tracking loop time 
constant on the LC 404 receiver is fixed at approximately 8 seconds. Thus 
it is not as responsive to changes in velocity. Care must be taken by the 
survey party to smoothly maneuver, accelerate and decelerate the survey 
vessel. To insure independent samples, a sample period of no less than 15 
seconds should be selected during data collection. 


DATA ANALYSIS SOFTWARE 


The programs TLS] and COMPAR have grown near the limits of available 
memory in the HP9845. The addition of a function to either program will 
probably require that an existing function and its associated subprograms be 
deleted. Care must be taken when deleting a subprogram since it may be used 
by several program functions. Appendices A and B_ each contain a list of 
their subprograms and the program functions where they are used. Another 
note of caution is that subprograms in TLS1 and COMPAR with the same name 
may not be identical, particularly plot subprograms. 


Expand TD to Position Coordinate Conversion Capability 
The TDSS can be used to demonstrate Loran-C navigation and/or evaluate 


TD to position coordinate conversion algorithms with the addition of the 
conversion software in the form of subprograms. The design of the TDSS 
software allows such expansion to be added without significant changes to 
the basic program structure. The changes are equivalent to changing a 
printed circuit board module in electronics equipment. 


Expand "Grid Warp" 

The function calculate Grid Warp in COMPAR calculates the difference 
between predicted TDs and measured TDs for a data set. The predicted TDs 
are about a known reference point based on the difference in distances to 
the transmitters between the measured data position and the reference point 
and measured TDs at the reference point. If the additional secondary phase 
factor, ASF, is constant in the area about the reference point, the measured 
and predicted TDs will agree. Changes in ASF over the area will be seen as 
“grid warp." This function can be expanded to analyze data collected over a 
large area in the CCZ to determine the behavior of ASF by calculating 
predicted TDs minus measured TDs. Predicted TDs are calculated using 
standard techniques (e.g., EEE-10) and position data collected from a long 
range positioning system. 
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Develop Self-Calibrate Software 


The concept of user self-calibration is discussed in the following 
section. Analysis software to demonstrate this approach must be developed, 
while the TDSS could be used without modification to collect data for this 
demonstration. 


SURVEY TECHNIQUES 


Self-Calibration 

The concept of user self-calibration is that Loran-C user equipment can 
be designed to collect data on several trips into and out of a harbor area 
and this data then used to calculate an average inbound and outbound 
trackline. The inbound and outbound tracklines can be divided into 
convenient segments for display on a CRT. A straight line or curve must be 
fit to the data. The user equipment can plot the average trackline and ship 
position calculated from measured TDs. Alphanumerics on the display can 
indicate cross track distance, cross track speed, and speed over ground. 
The approach is similar to a track plotter. A track plotter could be used 
to plot inbound and outbound tracklines for a harbor. The plot would then 
be saved until the next visit by the vessel to the harbor. With the pen in 
the up position, current ship position indicated by the point of the pen 
could be compared to the trackline plotted previously. A limitation of this 
approach is the scaling necessary to display the entire harbor area on the 
plotting surface or the necessity to change paper several times during a 
transit. This technique would also not provide a means for calculating 
cross track distance. 


Demonstration of the user self-calibration technique can remove the 
Coast Guard from the harbor survey business. It would be up to each 
manufacturer to develop a specific calibration technique for its equipment. 
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TLS1, Data Analysis Software for Visual Reference Survey 
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PROGRAM APPLICATIONS, “TLS1" 










The program "TLS1" is a collection of special function programs used to 
analyze data collected during a Loran-C Harbor Survey using visual sids to 

navigation and channel features as a position reference. The major functions 
of the program are: 











' a. calculate waypoint Loran-C time differences 





b. evaluate the performance of the resultant waypoints 





The following is a set of general procedures to use in applying TLS1 to 
analyze data collected during a harbor survey using visual aids to navigation 
as the position reference. 











PRELIMINARIES. Waypoint table and Loran-C chain data, data files are 
necessary for complete data analysis. The waypoint table file contains 
time-differences, local xy coordinates, latitude and longitude for twenty-five 
waypoints (see K23). The Loran-C chain data file contains latitude and 
longitude and power level for three secondaries and the master and the 
emission delays for the three secondaries (see K26). The waypoint table and 
Loran-C chain data data files are prepared during the survey planning stages. 
It is convenient to have the waypoint table file(s) and chain date file on the 
same data tape cartridge. 













iP The Loran-C TD data may be corrected for known offsets (see KO) during the 
wt time period that data was collected. Offsets can be determined from a local 
ey monitor TD record and data from the system area monitor. 






WAYPOINT CALCULATIONS. Waypoint calculations are divided into two categories: 





a. waypoints defined by the intersection of two channel centerlines which 
are both marked by visual ranges. 







| - be waypoints defined by the intersection of two channel centerlines which 
one or both are not marked by a visual range. 
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Visual Range Solution: 


a" For the case where the waypoint is defined by the intersection of two visual 
= : ranges, data will have been collected on each range line and stored in a data 
file. The term, trackline, is used for the survey line along one of the 
visual ranges. Tracklines are run near the waypoint and optimally bracket the 
waypoint. Typically a trackline data file contains three to four rune along 
the trackline. For each pair of TDs collected, a straight line is fitted to 
the trackline data. The intersection of the lines fitted to each trackline is 
an estimate of the waypoint TDs. The function, Compute Waypoint (K21), 

pee performs the above calculations. Figure 1 is a flow chart of the procedure to 
ph be used to calculate waypoint TDs for a waypoint defined by the intersection 
of two visual ranges. 
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The function, Compute Waypoint (K21), calculates statistics and linear 
regression parameters for each TD pair of data collected for the two trackline 
data files and the intersection of the regression lines for each TD pair. The 
crossing angle of the regression lines and the estimated rms error of the 
waypoint estimate (intersection of regression lines) are calculated and the 
results are printed in tabular fora. 


The quality of the trackline data can be checked by examining the 
correlation coefficient and residuals for each TD pair. Four TD pairs can be 
collected, but it is rare that all four provide useful data. In most cases, 
there are three good TDs available The correlation coefficient and residuals 
are a measure of how good the trackline data fits a straight line. If the 
vessel track were a perfect straight line, the residuals would be slightly 
greater than the standard deviations observed at dockside. A “noisy” vessel 
track will show up in larger residuals. A typical range in residuals is .025 
to .060 microseconds. One's ability to detect if the survey vessel is on or 
off the range decreases as distance to the range markers increase. Therefore, 
tracklines run at the far end of the range will tend to have larger residuals 
than tracklines nearer the range markers. In some cases, portions of 
tracklines run with the range markers "over the shoulder" may cause problems 
due to poor track keeping. The survey officers notebook should be checked for 
comments concerning suspect data. Suspect data can be removed using the Edit 
(K16) function. TD Statistics and Regression (K2), Plot TD Data with 
Regression Lines (K4) and Plot Residuals (K5) are useful functions for 
detecting suspect data and identifying sample numbers to delete. 


The estimated rms error and the closure between waypoint solutions is a 
good indication of waypoint quality. Estimated rms error is a function of 
trackline residuals, crossing angles, number of samples, and the survey 
pattern. Reducing trackline residuals by editing suspect data will reduce ras 
error in the waypoint solution. Crossing angles are fixed by the 
configuration of the channel and the Loran-C chain geometry. The rms-error is 
inversely proportional to the square root of the number of samples. The error 
is minimum when the survey tracklines form an X pattern. The difference 
between an X pattern and a V pattern is a factor by two. Editing data to 
better bracket the waypoint can improve the calculated rms error. Note: it 
is not a good practice to edit data such that the trackline does not reach the 
waypoint. 


If there are three TD data arrays, there.will be two solutions for the 
waypoint value of each TD. If four TDs are collected, there will be three 
solutions for each waypoint TD. The term, closure, is used to describe the 
agreement between solutions. If two solutions have low estimated rms errors 


(e.g, less than 20 nanoseconds), there should be good closure between the 
solutions. 


The waypoint TD estimate with the lowest estimated rms error should be 
chosen as the waypoint value. If two solutions have approximately the same 
rme error, they may be averaged. 
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*Calculate intersection of survey tracklines (K21) 





*Check quality of trackline data and waypoint solution. 
*correlation coefficients (greater than .95) 
*trackline residuals (20-60ns) 

“estimated rms of waypoint solutions 
-*closure of waypoint solutions 
*crossing angles 


*I£ data not satisfactory, edit and restore data files, and recompute 
waypoint. 


*If results still not satisfactory, resurvey waypoint. 


*Choose waypoint estimated with lowest estimated rms error as waypoint 
value. 


*Store TD data in waypoint file. 





*Calculate and store waypoint xy in waypoint file. 


Waypoint Calculation -Visual Range Solution 


Figure 1 


Non-Visual Range Solution: 


An iterative approach has been developed for the situations where there is 
only one or no visual range available. In this case, TD data is collected 
along channel edges, the channel centerline (if a range is available), and at 
aids-to-navigation near the waypoint and along channel edges. The TDs of a 
fixed aid near the waypoint (a buoy may be used if it is the only aid 
available) are stored temporarily as the waypoint TDs (K27). The 
corresponding xy coordinates are calculated using the Daisy Chain (K22) 
function from the local origin or adjacent waypoint. The offset of the 
waypoint from the aid-to-navigation is estimated from the navigation chart for 
the area and used in the Move (K24) function to calculate the waypoint TDs. 


The TD data collected in the area around the waypoint is converted to xy 
and along/cross track position coordinates using function K17, Convert TD Data 
to xy and AT/CT. The converted data is plotted and compared to the navigation 
chart. Function K18, Plot XY Data, will plot the position data on the CRT or 
9872A plotter. The plot can be scaled to a navigation chart scale (e.g., 
1:10,000, 1:20,000, 1:40,000, 1:80,000) or automatically scaled for the range 
of xy data. The function K19, Plot Along/Cross Track Data, automatically 
scales and plots the calculated cross track vs along track data. 


The xy and along track plots are compared to the navigation chart (and COE 
dredging charts if available). If the plotted data is consistent with the 
chart, then the calculated waypoint TD coordinates are good. If the plotted 
data and navigation chart do not agree, the offset of the waypoint is: 
determined from the plots. The waypoint is "moved" using K24 end the xy and 
cross track data is recalculated and replotted. Thies process is repeated 
until the plotted data greees with the eatin chart. 
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*Store the TDs of a fixed or floating aid-to-navigation near the 
waypoint as a temporary waypoint (K23). 


*Offset the TDs from the fixed or floating aid near the waypoint to the 
waypoint (K24). 


*Convert TD data collected along channel edges, channel centerlines, and 


at aide to navigation to xy and along/cross track coordinates (K17). 


*If xy and along/cross track data plots (K18, K19) do not agree with 
"reality," then use MOVE function (K24) to reposition waypoint until data 
and “reality” agree (repeat K17, K18, K19). 


*Store waypoint TD and xy in waypoint file. 





WAYPOINT CALCULATIONS - CHANNEL EDGE DATA 
Figure 2 


WAYPOINT VERIFICATION. There are two general approaches to waypoint 
verification. If the waypoint was calculated using the channel edge 
technique: the waypoint calculations are verified in the process of 
calculating the waypoint. The waypoint TDs are modified until position data 
converted from TDs for channel edges and aids-to-navigation agreed with the 
navigation chart. 


In the case where the waypoint is defined by the intersection of two 
ranges, data is collected along the entire length of the channel centerline 
during the survey. Data is usually also collected along channel edges and at 
several aids-to-navigation. Data collected along the channel centerline is 
converted to xy and along/cross track coordinates using function K17.: The 
plot of cross track vs along track (K19) is the best indicator of waypoint 
quality. If both waypoints are good and the vessel track was close to the 
centerline over the entire length of the channel, the cross track distance 
will be zero or near zero at both endpoints (e.g., at the waypoints). There 
may be a slight "bow" in cross track near the midpoint of the channel length. 
If the bow is severe a trackpoint can be inserted between waypoints. If the 
crose track distance is not near zero at one or both waypoints, recheck the 
waypoint calculations and check the survey notebook for comments as to whether 
the vessel was on range. It is good survey practice to collect data along the 
entire length of the channel several times during the survey. Several of 
these runs should be checked for consistent results before it is concluded 
that a waypoint is in error or a trackpoint is necessary. Data along channel 
edges and at aids-to-navigation is also converted to xy and along/cross track 
position and plotted (K18 and K19). The plots are compared to the navigation 
charts and COE data for agreement. 


Another check of waypoint calculations is to calculate xy positions (using 
3 TDs) for TD data collected in an area near the waypoint and use the project 
function, K27, to calculate the average TD fix triangle. The project function 
is the inverse of the Convert TD to XY and AT/CT function (K17). For each xy 








position, a set of TD values is calculated based on the distance from the 
waypoint position and the waypoint TDs. These calculated TDsa are differenced 
from the measured TDs for each data sample. Statistics for the resultant 
differences are calculated and a summary table is printed on the hard copy 
printer. 


TRACKPOINT CALCULATION. The location of a trackpoint is determined from the 
along/cross track plot (K19). ‘The trackpoint is generally selected where the 
“bow” in the plot is the maximum. The Move function, K24, in the range 
bearing mode is first used to calculate the "ideal" TD and xy at the range 
from the waypoint where the trackpoint is to be located. The changes in TD 
and xy calculated by K24 are applied to the waypoint values and stored in the 
waypoint table, K27, as the TD and xy for the trackpoint. These trackpoint TD 
and xy coordinate values are an interpolation between the two waypoints 
bracketing the channel. To provide a correction for the “bow in the 
along/cross track plot, the Move function is used to offset the trackpoint in 
the direction and equal to the magnitude of the "bow." The resultant 
calculations are applied to the trackpoint. The trackpoint coordinates are 
then used as the "to" waypoint for Td to xy calculations and the resultant 
along/cross positions are replotted as a check of the trackpoint 

calculations. In some cases there may be a requirement for more than one 
trackpoint. Additional trackpoints are calculated as outlined above using the 
first trackpoint as one of the two waypoints. 


Rows 1-20 of the waypoint table are generally set aside for waypoints, row 
25 contains the data for the local origin. Rows 21-24 are used for 
trackpoints. 








ce 
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Track point calculations: 


*Trackpoint between WF ss and «WP 
*Distance of Treck point from WP, R= 
*Bearing from WP, B= 

*Results of move of R&B from wWP( ): 


dTDX = dTDY = dTDZ = 
wWe() TDX = TDY = TDZ = 





First Estimate a« 


of Trackpoint : ° 
WP( ) Position X= Y= 
dx = dy = 
First Estimate of ; 
_Trackpoint XY 


*Trackpoint stored as WP 

*Magnitude of offset (e.g., BOW), M = 
*Move Trackpoint; R = M, B = B+90 
*Recalculate xy data using trackpoint 
*Replot CT/AT data 


“Reminder: Re-store waypoint table on waypoint file 


See ARLE SS ROR BT 8 net ee z 
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Data Analysis Software 


Function: Read Data File 


Special function key: KO 
Subprograms: 


Read (W(*), X(*), Y(*), Z(*), R1(*), R2(*), U$(*), N, FS) 
Read_alt(w(*), x(*), ¥(*), Z(*), U$(*), N, F$) 


The program function reads time-difference (TD) and time-of-day data stored on 
magnetic tape. The TD data may be corrected for known errors. If TDs are 
corrected, a lower case "t" is annotated to F$. 


Input parameters: 


F$ - File name 

Td_cor$ - Indicates if TD data is to be corrected, "Y" = yes, "N" = no. 
Weor - correction to W(*) 

Xcor ~ correction to X(*) 

Ycor - correction to Y(*) 

Zeor - correction to Z(*) 


Output parameters: 


W(*) = TDW data 
X(*) - TDX data 
Y(*) = TDY data 
Z(*) = TDZ data 
R1(*) - Range 1 data (Not used) 
R2(*) - Range 2 data (Not used) 
U$(*) - Time-of-day data - 
_N - number of samples 
F$ - annotated file name. 
F$&"t" = TD data corrected 


User Instructions: 
Prerequisite functions: None 
1. Insert data tape into left hand tape transport. 


2. Press KO. The menu is cleared and “READ DATA FILE" appears on the CRT in 
inverse video. 


3. When "DATA FILE TYPE? TD&RANGE] OR TD ONLY2" appears on the display line: 


a. If the data file contains both TD and range data arrays (e.g. post 
Delaware data or reformatted Delaware data): 
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(1) Enter: 1 
(2) Press: CONT 
b. If the data file contains only TD arrays (e.g. Delaware and 
pre-Delaware data) 
(1) Enter: 2 
(2) Press: CONT 


4. When "File Name?" appears in display area: 


a. Enter: File name 
b. Press: CONT 


The file is read and the file name and number of samples are printed. 
5. When "CORRECTION TO TDs? Y/N" appears in display area: 
a. If you want to correct TD data: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 6 
b. If you do not want to correct TD data: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 10 


6. The start and stop times for the data collected will be printed. When 
“CORRECTION TO TDW(MICROSEC)?" appears in display area: 


a. Enter: correction to TDW data in microseconds — 
b. Press: CONT 


When "CORRECTION TO TDX(MICROSEC)?" appears in display area: 


‘a Enter: correction to TDX data in microseconds — 
b. Press: CONT , 


When "CORRECTION TO TDY(MICROSEC)?" appears in display area: 


a. Enter: correction to TDY data in microseconds 
b. Press: CONT 


When "CORRECTION TO TDZ(MICROSEC)?" appears in display area: 


a. Enter: correction to TDZ data in microseconds 
b. Press: CONT 


The corrections entered for each TD will be printed and titled. 


10. The program function is complete. The function menu is printed on the 
CRT. 
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Function: Calculate Statistics and Linear Regression of TD Date 
Special Function Key: K2 
Subprograms: 


Stat _mat W(*), x(*), ¥(*), Z(#), Stat(*), Cov(*), 0 O_set(*), M) 
Reg (Stat(*), Cov(*), 8(*), R(*), O set(*)) 
Print (Stat(*), 0 set(*), Cov(*), R(*), MN, V) 


This program function calculates statistics, linear regression coefficients, 
and minimum and maximum for the four TD arrays. Statistics and regression 
parameters calculated are: 


a. mean for each TD 

b. standard deviation for each TD 

ce covariance of TD pairs 

d. correlation coefficient of each TD pair 

e. linear regression slopes of each TD pair 

f. standard deviation of residuals for each regression line 


Input parameters: 


w(*), x(*), ¥(*), Z(*) - TD arrays 
N ~ number of samples 


Output parameters: 


Stat (*) ~ Summary statistics array containing sums, sums of squares, 
mean and standard deviation 

O_set(*) ~ First data sample for each TD 

Cov(*) = Summary statistics array contains sums of cross producte, 


covariance, and correlation coefficients of TD pairs 
Bw, Bx, By, Bz ~- Maximum value for each TD array 
Lw, Lx, Ly, Lz - minimum value for each TD array. 


8(*) - A summary statistics array containing mean and standard 
deviation for each TD pair 
R(*) - An array containing linear regression slope, RMS residuals, 


and definition of the independent variable for each TD pair 


User Instructions: 
Prerequisite functions: KO Read Data 


1. Press K2. The menu is cleared and “STATS AND REGRESSION OF TD DATA" 
appears on the CRT in inverse video. 


2. The file name, start time, stop time, and a tebulation of the statistics 


and linear regression parameters for the TDs and TD pairs is printed on the 
hard copy printer. 


3. The program function is complete. The function menu is printed on the CRT. 
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Function: Separate Data into Subfiles 


Special Function Key: K3 
Subprograms: 


Separate (W(*), X(*), ¥(*), Z(*), RL(*), R2(*), US$(*)) 
Store (AC*), B(*), C(*), D(*), R1(*), R2(*), U$(*), Nt, F$) 


This program function enables the operator to separate and store a large 
data set into several smaller data files or to store a subset of the data into 
a data file. 

Function parameters: 

wW(*), x(*), Y(*), Z(*) - TD data arrays 

R1(*), R2(*) - Miniranger data arrays 

U$(*) = Time-of-day data array 

A(*), B(*), C(*), D(*) - Temporary TD data arrays 
User Instructions: 


Prerequisite functions: Read Data, KO, or Link Data, K25 


1. Press K3. The menu is cleared and "SEPARATE DATA INTO SUBFILES" appears 
on the CRT, 


2. When "FOR SUBFILE ENTER: START SAMPLE NUMBER" appears on the CRT: 


ae Enter: The sample number for the beginning of the subset of interest 
b. Press: CONT 


3. When “FOR SUBFILE ENTER: STOP SAMPLE NUMBER" appears on the CRT: 


a. Enter: The last sample number for the subset of interest 
b. Press: CONT 


4. When "FILE NAME?" appears on the CRT: 
a. Enter: File name for subset to be stored. Ensure that a tape 
cartridge with available space is in the left hand tape drive. 


b. Press: CONT 


5. The data file is created and data stored. The menu is reprinted on the 
CRT. If another subfile is to be stored, go to Step l. 
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Function: Plot TD Data with Regression Lines 
Special Function Key: KA 
Subprograms: 


Plot (Lx, Bx, Ly, By, Xaxis, Yaxis, X(*). ¥(#), Slope, MN, “TDX", "TDY", F¢) 


. The program function plots two of the time-difference arrays against each 


other and also plots the linear regression line for the TD pair chosen. The 
program automatically scales the plot for the minimum and maximum TDs for each 
array. The axes are drawn through the mean for each TD, Minor tic marks sre 
every microsecond and major tic marks every 10 microseconds. 
Parameters: 

Plot - TD pair to be plotted 

1 WX; Z= WY; 3 © WZ; 4 = XY, 5 = XZ, 6 = YZ 

Lw, Lx, Ly, Lz - Minimum TD for each array 


Bw, Bx, By, Bz - Maximum TD for each array 


S(*) - Statistics summary array containing means and standard deviations for 
each pair to TD arrays 


R(*) - Regression summary array which contains slopes of regression lines | 
BK ~ Number of samples 
F§ - File name 
User Instructions: 
_ Prerequisite function: KO — Read Data File 
K2 = Calculate Statistics and Linear 


Regression of TD Data 


1. Press K4. The menu is cleared and "PLOT TD DATA WITH REGRESSION LINES” 
appears on the CRT in inverse video. 


2. When "PLOT? WX1, WY2, WZ3, X¥4, XZ5, YZ6" appears on the display line: 


ae Enter: 1-6 depending on which plot is desired 
be. Press: CONT 


3. The selected TD data will be plotted on the CRT. When finished viewing 
the plot: 


ae Press: CONT 





Function: Plot Residuals 


Special Function Key: K5 


Subprograms: Rplot(Iv(*), D(*), S(*), R(*), Pr, N, V1$, V2$, F$) 
Hi_lo(X(*), N, Hi, Lo) 


This program function plots the residuals from the linear regression of any TD — 
pair (See K2). The residuals may be plotted against sample number or the 
independent variable. Residuals are normalized to the standard deviation of 


the residuals. Normalized values greater than 5 are printed on the hard copy 
printer and are not plotted. 


Variables: 


W(*), X(*), ¥(*), Z(*) - TD data arrays 

S(*) - Statistics summary array 

R(*) - Regression summary array 

Pr - TD pair for which residuals are being plotted: 1 = WX, 2 = WY, 3 = WZ, 
4 = XY, 5 = XZ; 6 = YZ ‘ 

N - Numbers of Samples 

V1$, V2$ - Names of two TDs for which residuals are being plotted, i.e. 

"Tow", “TDX", etc. 
F$ - Data file name 


Oe eee are 
a 
————— 


User Instructions: 


Prerequisite functions: 
KO - Read Data 


K2 = Calculate Statistics and Linear Regression of TD Data 


y 
‘A 


1. Press K5. The menu is cleared and "PLOT RESIDUALS" is printed on the CRT 
in inverse video. 


2. When "PLOT? WX1, WY2, WZ3, XY¥4, XZ5, YZ6" appears on the display line: 


a. Enter: 1-6 depending on which plot is desired 
b. Press: CONT 


3. When "PLOT RESIDUALS VS N(1) OR INDEPENDENT VAR(2)?" appears on the 
display line: 


a. To plot the residuals vs sample number: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to: Step 4 
b. To plot the residuals vs the independent variable: 
(1) Enters 2 
(2) Press: CONT 
(3) Go to: Step 4 


4. The normalized residuals for the selected TD pair regression line will be 
plotted on the CRT. When finished viewing the plot: 
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a. Press: CONT 
5. When “HARD COPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
_b. If no hard copy of the plot is desired: 
(1) Enter: N 
(2) Press: CONT 


6. The program function is complete. The function menu is printed on the CRT. 
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Function: Edit Data 












Special Function Key: K16 


Subprograms: 





' Delete (w(*)), X(*), ¥(#), Z(#), RL(#), R2(#), US(*), NW, FS) 
Delete blok (W(*), x(*), ¥(*), Z(*), RI(*), R2(*), US(*), M, FS) 
Delete td (w(*), X(#), ¥(#), Z2(*), BI(*), R2(*), U$(*), HN, FS) 


This program function is used to edit (i.e. remove) samples from the data (TD, 
time, and range) arrays. Three options are available to the user: 






a. The first option deletes a single data sample in each data array. 
E b. The second deletes a block of data samples. 

ce The third deletes samples with TD samples outside a range that is 
input by the operator. 

















When editing of the data arrays is complete, the operator may store the edited 
| data on a new file for later use. 


NOTE: The edit function deletes only data samples. Arrays containing XY and 
along/cross track position data are not affected. Function K17 must be 
repeated to see the effect of editing on computed positions. 


Paramaters: 


a eer necenncem ema eO 


Edit - Indicates which edit subroutine is to be used. 






\ 1 ~ delete sample by sample 
aye: 2 - delete block of samples 
3 - delete samples with TD values outside limits determined by operator 


w(*), X(*), ¥(*), Z(*), R1(*), R2(*), U$(*) - Data arrays 
FE; N -. Number of samples 
| F$ - Data file name 


User Instructions: 


Prerequisite functions: 










KO: Read Data 
Optional: Several other program functions may be run prior to the Edit 
function to determine which data samples are to be edited, 

e.g. K2, K4, K5, K18 







1. Press: K16. The menu i; cleared and "EDIT DATA" appears on the CRT in 
inverse video. 






2. When "SINGLE LINEL, BLOCK2, OR TD-CLIP3" appears on the display line: 


a. L£ you want to delete samplee one at a time: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 3 
b. If you want to delete a block(s) of samples: 
(1) Enter: 
(2) Press: CONT | 
(3) Go to Step 8 
c. If you want to delete samples outside a set of TD bounds: i 
(1) Enter: 3 ‘ 
(2) Press: CONT 
(3) Go to Step 11 


3. When “SAMPLE TO BE DELETED? START WITH HIGHEST NUMBER" appears on the 
display line: 


a. Enter: Sample number 
b. Press: CONT 


The sample deleted and the number of samples remaining are printed on the hard 
copy printer. 


4. When “ANOTHER SAMPLE TO DELETE?" appears in the display area: 


a. Enter: Y(if another sample is to be deleted) or N 
b. Press: CONT 
ce. If another sample is to be deleted, go to Step 3. 


5. When "LIST DATA?" appears in the display area: 


a. If a listing of the data is desired: 

(1) Enter: Y 

(2) Press: CONT. The data is printed on the hard copy printer. 
b. If a listing of the data is not desired: 

(1) Enter: N 

(2) Press: CONT 


6. When “STORE DATA?" appears in the display area: 
a. If you want to store the data 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 7 
b. If you do not want to store the data 
(1) Enter: N 
(2) Prees: CONT 
(3) Go to Step 15 


7. Insure that a tape cartridge is loaded into the left hand tape drive. 
When "FILE NAME?" appears on the display area: 

a. Enter: File name 

b. Press: CONT 

ce Go to Step 15 


| 
| 
| 
| 
| 
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8. When “FIRST SAMPLE IN BLOCK?" appears in the display area (if more than 
one block is to be deleted, delete the block with the higher sample numbers 
first. The array is renumbered after each edit.) 


a. Enter: First sauple 
b. Press: CONT 


a. Enter: Last sample 
b. Press: CONT 


The block of samples deleted and the numbers of samples remaining are printed 


4 
9. When "LAST SAMPLE IN BLOCK TO BE DELETED" appears in the display area: 
on the hard copy printer. | 
| 


Ei 10. When “ANOTHER BLOCK TO BE DELETED?" appears in the display area 


a. If there is more data to be deleted 
(1) Enter: Y 
(2) Press CONT 
: (3) Go to Step 8 
b. If no more data is to be deleted 
(1) Enter: N 
(2) Press: CONT 
{| (3) Go to Step 5 


11. When "CLIP LIMITS FOR TDW? MIN, MAX" appears in the display area: 
a. Enter: minimum TDW, maximum TDW 
be Press: CONT 


ea 
a <4 


12. When "CLIP LIMITS FOR TDX? MIN, MAX" appears in the display area: 
a. Enter: minimum TDX, maximum TDX . 
b. Press: CONT 


\ 13. When “CLIP LIMITS FOR TDY? MIN, MAX" appears in the display area: { 
bh a. Enter: minimum TDY, Maximum TDY 
b. Press: CONT , 


| 14. When "CLIP LIMITS FOR TDZ? MIN, MAX" appears in the display area: 
a. Enter: minimum TDZ, maximum TDZ 
b. Press: CONT 


= en Se 


The number of samples deleted and number of samples remaining are printed on 
K the hard copy printer. 
a Ce Go to Step 5 


15. The program function is complete. The program menu is printed on the CRT. 








Function: Convert TD Data to XY Position 


Special Function Key: K17 
Subprograms: 


Cart_coord (Xmit(*), Wpt(25,7), Wpt(25,8), Zxmit(*)) 

Rb (Wpt(we,5), Wpt (We, 6), zmit(I,1), Zxmit(1,2),Bear(L), Range (1) 

G_mat (Power(*), Vv, Range(*), Bear(*), zp(*), Aa(*), G123(*), G12(*), 
“623(*), G13(*)) 

Wp3 (Wpt(*), Conf, Wt, Tp(*), Zpp(*), L$) 

Td3 (w(*), X(*), y(*), 2(*), TI, Conf, Tq(*)) 

Fehg (Zxmit(*), Zpp(*), Tp(*), Tq(*), G123(*), Zq(*), V) 

Fehgt (Zxm(*), Zpp(*), Tp(*), Tq(*), G(*), Zq(*), v) 

Wp2 (Wpt(*), Conf, Wt, Tpp(*), Pair, Zpp(*), G12(*), G23(*), G13(*), G(*), 
L$, Zxmit(*), Zam(*)) 

Td2 (W(*), X(*), ¥(*), 2(*), I, Conf, Pair, Tqq(*)) 

Wpf2 (Wpt(*), Conf, Pair, Wf, Tqq(*)) 

Ct_at (Pos_x(*), Pox_y(*), Ct(*), at(*), Wpt(Wt,5), wpe(we, 6) 

Stat mat (Pos x(*), Pos y(*), ce(*), At(*), Stat(*), Cov(*), O_set(*), N) 

Reg (Stat(*), | Cov(*), s(*), R(*), 0 set(*)) 

Track (Stat(*), 0 set(*), Cov(*), R(*), Sample, F$, Wt, Wf, Angle, N) 

Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y¥) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R*, Plat, Plon) 


This program function converts Td data to xy and along/cross track positions 
using the FEHG algorithm and surveyed waypoints. The program will compute 
either a three or two TD solution. A summary table is printed on the hard 
copy printer which lists: 


-chain and LOPs used in the solution 
~file name 
. sbearing angle between waypoints used for along/crossa track calculation 
- rms trackline of data 
~average cross track position 
-standard deviation of cross track position 
“average xy position 
“standard deviation of xy position data 


Function Parameters: 


Chain$ - Loran-C transmitting chain file which contains transmitter positions, 
power, and emission delays. The convention for naming chain files is a 
four letter code followed by a number from 1 to 4, eg NEUS1. The number 
designates the three secondaries utilized: 1 = XYZ, 2 = WKY, 3 = WXZ, 
4 = WYZ. 

Cl -= Flag which is set when the Loran-C chain file is read 

Pos_x(*), Pos_y(*) - x and y position arrays 

At(*), ct(*) - Along and cross track position arrays 

Xmit(*) - Transmitter geodetic positions 

Power(*) - Transmitter power levels 

Emis(*) - Secondary transmitter er ssion delays 

Fl - Flag to indicate when the waypoint file is read 

File$ - Waypoint file name 

A-15 





Siiistoess idddionsaiecniaaiiieneienneehe 


<Not SEDO TSA 
OER ae ie en, pn otk Be NTI Deter AER ES aE ETP | TERY eri tenn enn, am oi a a 


| 


€ 


Wpt(*) - Waypoint data array 
Zxmit(*) - Transmitter xy positions referenced to local origin (Wpt(25,7), 
Wpt(25,8)) 
Wet - Waypoint used as reference for TD to Xy calculations 
Wf - Waypoint used for along/cross track calculations to Wt 
Bear(*) - Bearings from waypoint to transmitters 
Range(*) - Ranges from waypoint to transmitters 
Zp(*) - XY position of waypoint 
V - Velocity of propagation 
Aa(*) - Gradient matrix, xy to TD 
G123(*) = Three Td gradient matrix, TD to XY 
G12(*), G13(*), G23(*) - Two TD gradient matrices, TD to oa 
Conf ~ Chain configuration 1 = X¥Z, 2 = WXY, 3 = WKZ, 4 = 
Ch$ - Abbreviation of chain, eg first four characters of nates 
So - Indicates two or three solution: 2 = 2-TD, 3 = 3-TD 
L$ - LOPs used in TD to XY calculation, eg XYZ, YZ, WK, etc. 
w(*), X(*), Y(*), Z(*) = TD data arrays 
Zq(*) = XY position solution 
Tq(*) - 3-TD sample 
TQQ(*) — 2~TD sample 
Zpp(*) = XY position of waypoint 
Tp(*) - 3-TD waypoint 
Tpp(*) - 2-TD waypoint 
Zxx(*) = Dummy position array 
Pair - LOP pair used for TD to xy calculation 
If Conf = 1; 1 - XY, 2 = XZ, 3 = YZ 
If Conf = 2; 1 = WX, 2 = WY, 3 = XY 
If Conf = 3; 1 = WX, 2 = WZ, 3 = YZ 
If Conf = 4; 1 = WY, 2 = WZ, 3 = YZ 
G(*) - 2TD G matrix used in 2TD solution 
Zxm(*) - Transmitter xy positions - two TD case 
R - Distance between "TO" and "FROM" waypoints 
Stat(*), Cov(*), 0 set(*), S(*), R(*) - Arrays containing summary statistics 
of xy and along/crose track position 


User Instruction: 
Prerequisite instructions: Read Data, KO 


1. Press K17. The menu will be cleared and "CONVERT TD TO XY" will appear on 
the CRT in inverse video. 


2. When "CHAIN CONFIGURATION? " appears on the display line: 


(1) Insure that the tape cartridge containing chain data is 
in the right hand tape drive. 

(2) Enter: Chain file. Note: Chain files have five character 
names. The first four characters denote the chain, eg NEUS, 
SEUS, WCUS. The number following the characters denotes the 
secondaries, eg: 1 * X¥Z, 2 = WXY, 3 = WXZ, 4 = WYZ 

(3) Press: CONT 





a a a ae eens 





NOTE: Chain ‘configuration data is only read once. The data is stored in 
wemory for further use. To change chain configuration either: 


a. Press: STOP 
b. Press: RUN. This clears data memory and "CHAIN CONFIGURATION” will be 
requested as above. All other data in memory will also be cleared. 
OR 
a. Enter: Cl =0 
b. Press: EXECUTE. This clears the flag, Cl, which will cause the 
program to branch through the "CHAIN CONFIGURATION?" statement. 


When "WAYPOINT FILE NAME?" appears in the display area: 


a. Insure that the tape cartridge containing waypoint data is 
in the right hand tape drive. 

b. Enter: Waypoint file 

ce Press: CONT 


NOTE: Waypoint file data is read only once. The data is stored in memory for 
further use. 


To change the waypoint file: 


a. Press: STOP 
b. Press: RUN. This clears data memory and "WAYPOINT FILE" will be 
requested as above 
OR 
a. Enter: Fl = 0 
b. Press: EXECUTE. This clears the flag Fl which will cause the program 
to branch through the "WAYPOINT FILE?" statement. 


4. When "WAYPOINT TO?" appears in the display area: 


a. Enter: Waypoint number. NOTE: If a comparison of Mini-ranger and 
Loran-C position data is to be made, insure that "TO" and "FROM" 
waypoints are consistent. Conversion waypoint is "TO" waypoint. 

b. Press: CONT 


5. When “WAYPOINT FROM ?" appears in the display area: 


a. Enter: Waypoint number. See Note above 
b. Press: CONT 


6. When “TWO OR THREE TD SOLUTION?" appears in the display area: 


ae If a two TD solution is desired: 
(1) Enter: 2 
(2) Press: CONT 
(3) “TWO TD SOLUTION, CHAIN = " is printed on 
the hard copy printer. 
b. If a three TD solution is desired: 
(1) Enter: 
(2) Press: CONT 
(3) “THREE TD SOLUTION, CHAIN = “ is printed on 
the hard copy printer. 
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7. The sample number is displayed in display area as the program sequences 
through the data arrays. When the calculations are complete, a summary table 
is printed on the hard copy printer which contains: 


ae 
b. 
“Ce 
d. 
Co 
f. 
Se 


data file name 

bearing angle between waypoints 
rms trackline of data : 
average cross track position 
standard deviation of cross track position 

average x,y position 

standard deviation of xy position data 


8. The program function is complete. The function menu is printed on the CRT. 
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Function: Plot XY Date 
Special Function Key: K18 
Subprograms: 


Hi_lo (Pos_x(*), N, Maxx, Minx) 


art Se Pos _x(*), Pos_y(*), Min x, Max_x, Min _y, Max, y, N, No, FS, Ch$, 
L$, Pl 


This program function plots the xy data calculated from Loran-C TDs on the 
CRT or 9872A plotter. ‘Two options are available. The first automatically 
scales the CRT (or9872A) plotting area to the range of xy data. The operator 
may zoom in on a section of the plot, find the sample number of a plotted 
point, and digitize up 10 locations on the plot. The second option plots the 
xy data to a chart scale (1:10,000,1:20,000, 1:40,000, or 1:80,000). The axes 
are drawn through a waypoint selected by the operator. The operator also 
inputs the offset of the waypoint (axes) from the lower left hand corner of 
the plotting area. The selection of waypoint offset and scale determines the 
window of data which will be plotted. ° 


Function parameters: 


Pos_x(*), Pos ¥(*) = xy position calculated from Loran-C data 
Minx, Miny - Minimum x and y positions 
Maxx, Maxy - Maximum x and y positions 
T - Line type 
_N - Number of. samples 
No - Denotes first or second time data is being plotted 
Ch$ ~ Loran-C chain, eg NEUS, SEUS, etc. 
L$ - Loran-C LOPs, eg KY, WX, etc. 


User Instructions: 


Prerequisite functions: KO and K17 


1. Press K18: The menu is cleared and "PLOT XY DATA" is printed on the CRT. 


2. When "STANDARD XY PLOT1 OR PLOT TO CHART SCALE2? 1 or 2" appears on 
display line: 


a. If data to be plotted standard X Y 
1. Enter 1 
2. Press: CONT 
3. Go to step 3 
b. If data to be plotted to chart 
1. Enter: 2 
2. Press: CON¢t 
3. Go to step 15 


3. When "PLOT DATA ON CRT1 OR 9872A2: 1 OR 2" appears on the display line: 








PE RET 6 TT 


ae Enter: 1 or 2 
be. Presse: CONT 


4. After viewing plot 
ae Press: CONT 


5. When "ZOOM: Y OR N" appears on display line: 
NOTE: When using 9872A, change paper 


a. To blow up a section of the plot: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to step 6 or 7 
b. If a "zoom" or further "zoom" is not wanted: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to step 8 


6. For CRI, when the cursor appears on the CRT, place cursor at the lower 
left-hand corner of the area of interest and press CONT. When cursor 
reappears, position cursor at the upper right-hand corner of the area of 
interest and press CONT. The selected area is replotted on the CRT. 


Go to step 5 


7. For 9872A, place pen at lower left-hand corner of the area of interest and 
press"ENTER” on the plotter. 


Go to Step 5 
NOTE: The "zoom" may be repeated several times. 


8. When "FIND SAMPLE NUMBER AND VALUE OF PLOTTED DATA POINT?" appears on the 
display line: 


a. If the sample number of a point on the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 11 


9. For CRT, when the cursor appears on the CRT: 


a. Center it on the point of interest 
b. Press: CONT 


10. For 9872A, move pen to point of interest 








































a. Press "ENTER" on plotter 


The sample number and cocrdinates will be printed on the printer. If no data 

is printed, try repositioning the cursor closer to the point of interest or ‘ 
replot the data and use "zoom" to blow up the area around the point of 

interest. 


ce Go to Step 8 
11, When "DIGITIZE?" appears in the display area: 


a. If you want to digitize 1-10 points on the plot: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 9 


12. When "HOW MANY? 1-10" appears in the display area: 


a. Enter: the number of points to be digitized 
b. Press: CONT 


For CRT, when the cursor appears on the CRT, center it over a point of 
interest and 


ce Press: CONT 
For 9872A, center pen over point of interest 
d. Press; Enter 


A plus sign (+) will appear over the data point and the number of points 
digitized (1-10) will appear to its right. Continue the procedure until the 
number of points to be digitized is complete. A list of the digitized point 
coordinates is printed on the hard copy printer. 


d. Go to Step 14 


13. The plct will reappear on the CRT. When finished viewing the plot press 
CONT. 


14, For CRT, when "HARDCOPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to step 20 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to step 20 
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15. When “WAYPOINT FOR AXES” appears on display line 
a. Enter: Waypoint Mo. for Axes 
be Press: CONT 


16. man "WAYPOIT OFYOET YROM LOWER RIGHT HAMD CORNER.OF PLOT? x, 1 (mH)" 
appears on display line: 


a. Enter: X,Y 
be. Press: CONT 


17. When "PLOT DATA ON CRT1 OR 987242? 1 OR 2" appears on the display line: 


ae Enter: 1 or 2 
b. Press: CONT 


18. When "CHART SCALE 1:10,0001, 1:20,0002, 1:40,0004, 1:80,0008, 1, 2, 4, or 
8" appears on display line: 


a. Enter: Chart scale (1, 2, 4 or 8) 
b. Press: CONT 


19, If data plotted on CRT: 


ae Go to step 20 


20, The function is complete. The function menu is printed on the CRT. 





Function: Plot Along/Cross Track Data 
Special Function Key: K19 
Subprograms: 


Hi_lo (ct(*), N, Maxc, Minc) 

Patct (at(*), Ct(*), N, Mina, Mexa, Minc, Maxc, » F$, R, No, Data) 

G mat (P(*), V, Range(*), Rear (?)s Zp, A(*), ciasce)e Tete), G23(*), 
G13(*)) 


This program function plots cross track vs along track position. The plots 
are automatically scaled and labeled. 


Function parameters: 


At(*), ct(*) - Along and crosa track position arrays calculated from 
Loran-C data 

N - Numbers of samples 

Maxc, Maxcc - Maximum cross track' distance 

Minc, Mince ~ Minimum cross track distance 

Maxa, Maxaa - Maximum along track distance 

Mina, Minaa - Minimum along track distance 

Wt - Waypoint to 

Wf - Waypoint from 

R - Distance between waypoints 

F$ ~ File name 


User Instructions: 
Prerequisite function: K17 


1. Press K19. The program menu is cleared and "PLOT ALONG TRACK CROSS TRACK 
DATA" is printed on the CRT in inverse video. 


2. The along/cross track data is plotted on the CRT. When finished viewing 
the plot: 


a. Press: CONT 


3- When "HARD COPY? Y OR N” appears in the display area: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
be. If not: 
(1) Banter: N 
(2) Press: CONT 


4. This function is complete. The function menu is printed on the CRT. 
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Function: Predict TD 
Special Function Key: K20 
Subprograns: 


Range (Lat, Lon, Xmit(I,1), Xmit(I,2), Range (I)) 

Béar (Lat, Lon, Xmit(1I,1), Xmit(1Z,2), Bear(1)) 

Td (Range(*), V, Emis(*), Td(*)) 

ey V, Range(*), Bear(*), Zp(*), A(*), G123(*), G12(*), G23(*), 
G13(* 


This program function calculates predicted TDs for an input latitude, 
longitude. The program also outputs range and bearing to transmitter stations 
and GDOPs for the three TD and two TD fixes. 


Function Variables: 


Cl - Chain flag indicates if chain data has been read into memory 

Chain$ - Chain name ; 

Xmit(*) - Transmitter positions (latitude, longitude) 

Power(*) - Transmitter power 

Emis(*) - Secondary emission delays 

P$ - Indicates input position is a waypoint 

Fl - Waypoint table flag, indicates waypoint table has been 
read into memory 

Wpt(*) - Waypoint table 

Lat,Lon - Latitude and Longitude of position of interest 

D,M,S - Degrees, Minutes, Seconds 

Range (*) - Ranges to transmitters 

Bear(*) - Bearings to transmitters 

Td(*) = Predicted TDs 

Aa(*) - Gradient matrix; xy to TD 

G123(*) - Three TD gradient matrix; TD to XY 

G12(*), G13(*), G23(*) = Two TD gradient matrices, TD to XY 

’ Gdop 123 - Three TD Geometric Dilutin of Precision: (GDOP) 

Gdopl2, Gdopl3, Gdop23 = Two TD GDOPs 

Ch$ - Chain abbreviation, eq NEUS = North East United States 

Conf - Indicates three TD configuration: 1 = XYZ, 2 = WXY, 3 = WXZ, 
4 = WYZ 


User Instructions: 


Prerequisite functions: None 


1. Press K20. The program menu is cleared and "TD PREDICTION” is printed on 
the CRT in inverse video. 


2. When "CHAIN FILE" appears in the display area: 


(1) Insure that the tape cartridge containing chain data is in the 
right hand tape drive 

(2) Enter: Chain file. Note: Chain files have five character 
names. The first four characters denote the chain, eg NEUS 
SEUS, etc. The number following the character denotes the 
secondaries, eg 1 = XYZ, 2 = WXY, 3 = WXZ, 4 = WYZ 

(3) Press: CONT 
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Mote: Chain configuration date is read only once. The date is stored in 
memory for further meee: To change chain ee ee 


Be Press: " sT0P 
b. Press: RUN. This clears data memory and “CHAIN wrur" will be 
mpures tae ae above. Ali other data in memory will also be cleared 


ae ee "ol 20. 
b. Press: EXECUTE. This clears the flag Cl which will cause the 
program to branch through the "CHAIN FILE" statement. 


3. When "IS POINT OF INTEREST ON WAYPOINT FILE? Y OR N” appears in the 
display area: 


sa. If the point of interest is on the waypoint file: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 6 


4. When "WP FILE NAME?” appears on the display line (see Mote below) 


a. Insure that the tape cartridge containing waypoint data is in the 
right hand tape drive 

b. Enter: Waypoint file name 

ce Press: CONT 


Note: This step is skipped on successive runs of this program function or if 
the waypoint file has been read during a previous function. 


5. When "WAYPOINT NO.?" appears on the display line: 
a. Enter: the waypoint of interest 
b. Press: CONT 
Ce Go to Step 8 
6. When "INPUT LAT IN DEGREES, MIN, SEC" appears on the display line: 
ae Enter: Latitude of position of interest (Degrees, Minutes, Seconds). 


The program assumes North latitude 
be. Presse: CONT 


7. When "INPUT LON IN DEGREES, MIN, SEC" appears on the display line: 


a. Enter: Longitude of position of interest (Degrees, Minutes, Seconds). 
The program assumes East longitude 
b. Presse: CONT 


8 hs Mh 
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The program calculates and prints the following parameters: 


ae Predicted time differences. 
TDs are also listed.) 

b. Ranges and bearings to transmitters 

ce GDOPs for the three TD and each of the two TD combinations. 


(If a waypoint is selected, surveyed 


The program function is complete. The program menu is printed on the CRT. 
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Function: Calculete Waypaint 
Special Function Key: K21 
Subprograms: 


Read(w(*), X(*), ¥(*), Z(*), R1(*), R2(*), US(*), M1, FS) 
Read_alt(w(*), X(*), ¥(*), Z(*), US(*), Nl, F6) pO de 
Stat_mat(W(*), X(*), Y(*), Z2(*), Stat(*), Cov(*), 0 set(*), M1) 
Reg(Stat(*), Cov(*), 81(*), Rone(*), O set(*)) 

Print (Stat(*), 0 set(*), Cov(*), Rone(*), Nl, 1) 

Way(S1(*), S2(*), Rone(*), Rtwo(*), Nl, N2, Wp(*)) 

Wprint (Wp(*)) 


This program function computes estimated waypoint time differences, estimated 
rms error, and lop crossing angles. The function also calculates and prints 
statistics and regression parameters for each of the survey tracklines. 


Parameters: 
Read - Type of data file 


w(*), X(*), ¥(*), Z(*) - TD data arrays 

R1(*), R2(*) = Range data arrays 

U$(*) - Time array 

Nl - Number of samples for first data file 

N2 - Number of samples for second data file 

Stat(*), Cov(*), O set(*) - Statistics arrays 

S1(*), Rone(*) - Statistics summary arrays for first data file 
S2(*), Rtwo(*) - Statistics summary arrays for second data file 
Wp(*) - Summary of waypoint calculations 


User Instructions: 
Prerequisite functions: None required 


1. Press K21. The menu is cleared and "CALCULATE WAYPOINT" is printed on the 
CRT. 


2. When "DATA FILE TYPE? TD&RANGE 1 OR TD ONLY 2 ?" appears on the display 
line: 


a» If the trackline data files contain both TD and range errays (i.e. 
post Delaware data or reformatted Delaware data) 

(1) Enter: 1 
(2) Press: CONT 

b. If Wi trackline date files contain only TD arrays (e.g. Deleware River 

data): 

(1) Enter: 2 
(2) Press: CONT 


3. When "FILE NAME" appears on the display line: 








a. Enter: file name of one of the survey tracklines 
b. Press: CONT 


The file name is printed on the hard copy printer. Statistics and 
regression parameters are calculated for the file data and the results are 
printed on the hard copy printer. 


4. When "FILE NAME" reappears on the display line: 


a. Enter: File name of the other survey trackline 
b. Press: CONT 


The file name is printed on the hard copy printer. Statistics end 
regression parameters ere calculated for the file data and the results are 
printed on the hard copy printer. 


5. The intersection of each pair of regression lines is calculated along 
with the crossing angles and estimated rms error of each solution. The 
results are printed in tabular form on the hard copy printer. 


6. The function is complete. 
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Function: Daisy Chain 
Special Function Key: K22 
Subprograms: 


Cart_coord (xmit(*), Wpt(25,7), Wpt(25,8), Zamit(*)) 

Rb(Wpt(Rw,5), Wpt(Rw,6), Zxmit(I,1), Zumit(I,2), Bear (1), Range (1)) 

G mat (Power(*), V, Range(*), Bear(*), Zp(*), Aa(*)), GL23(#), G12(*), 
G23(*), G13(*)) . 

Wp2 (Wpte(*), Conf, Rw, Tpp(*) Pair, Zpp(*), Gl2(*), G23(*), G13(*), G(*), 
L$,Zxmit(*), Zxm(*)) 

Wpf2 (Wpt(*), Conf, Pair, Iw, Tqq(*)) 

Fehgt (Zxm(*), Zpp(*), Tpp(*), Tqq(*), G(*), Zq(*), V) 

Wp3 (Wpt(*), Conf, Rw, Tp(*), Zpp(*), 

Fehg (Zxmit(*), Zpp(*), Tp(*), Tq(*), G123(*), Zq(*), V) 

- Rotate. (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R*, Plat, Plon) 


This program function calculates the position of a waypoint based on the 
difference in. TDs between it and a neighboring waypoint. The Flat Earth 
Hyperbolic Grid (FEHG) is used to calculate position coordinates. 
Differential xy coordinates, differential latitude and longitude, and range 
and bearing between waypoints is also calculated. The user has the option of 
inserting the calculated xy coordinates (and latitude longitude) into the 
waypoint table, Wpt(*). Note: This function does not restore the new 


. waypoint table in magnetic tape. If this is desired, function K23 must be 


ueed. 
Function variables: 


Cl ~ Status variable which indicates if chain data has been read into 
memory 

Fl - Status variable which indicates if the waypoint table has been 
read into memory 

Chain$ - Chain file 

Xmit(*), Power(*), Emis(*) - Chain variables; geodetic coordinates, power 
levels, and emission delays 

Conf - Chain configuration 

Ch$ - First four characters of Chain$ 

Wpt(*) - Waypoint table 

Zxumit(*) - Transmitter xy coordinates referenced to local origin (three 
TD case) 

Rw - Reference waypoint (start) 

Iw ~ Waypoint of interest (stop) 

Bear(*), Range(*) - Bearings and ranges to transmitters 

Zpp(*), Zp(*) - Reference waypoint position 

V - Velocity of propagation 

Aa(*), G123(*), G12(*), G13(*), G23(*) - gradient matrices 

zxa(*) - Transmitter xy coordinates referenced to local origin 

(two TD case) 

So - Indicates two or three TD solution of FEHG 

Tpp(*), Tp(*) = Two and three TD waypoints (start) 

Taq(*), Tq(*) = Two and three TD waypoints (stop) 

Pair - TD pair (two TD case) 
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G(*) - Gradient matrix associated with TD pair (Pair) 
L$ - Lops e.q. "XYZ," "XY," "XZ," etc. 

Zq(*) = Waypoint of interest x, y position 

Zxx(*) - Dummy position array 

Dx, Dy - Difference in xy position of waypoints 

Dlat, Dlon - Difference in latitude, longitude of waypoints 
! Lat, Lon - Computed latitude, longitude of waypoint 

A - Angle between waypoints 
R - Range between wayopints 













User Instructions: 









Prerequisite functions: assumes a waypoint file has been created and it 
contains TDs for the two waypoints and an xy positions for the reference 
waypoint. 








1. Press K22. The program menu is cleared and "DAISY CHAIN" appears on the 
CRT in inverse video. 












2. If “CHAIN FILE?" appears in the display line: 





(1) Enter: Five character chain file (e.g. NEUS2, GTLK1, etc.) 
fF Insure that the tape cartridge containing the file is in the 
. | right hand tape drive. 

(2) Press: CONT 









If "WP FILE?" appears in the display erea: 





a. Enter: Waypoint file name. Insure that the tape cartridge containing 
! the waypoint file is in the right hand tape drive. 
| Press: CONT : 









When “INPUT START WAYPOINT NO." appears in the display area: 





. @ Enter: Start or reference waypoint 
b. Press: CONT 





5. When “END WAYPOINT" appears in the display area: 





a. Enter: Waypoint of interest 
b. Press: CONT 









When “TWO OR THREE TD SOLUTION, 2 OR 3" appears in the display area: 





a. If a three TD solution is desired: 

(1) Enter: 3 

(2) Press: CONT 

(3) Go to Step 8 
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be If a two TD solution is desired 
(1) Enter: 2 
(2) Press: CONT 


7. When “INPUT TD PAIR; XY¥1, XZ2, X¥3" appears in the display area: ; 
(The choice of TD pairs depends on the chain configuration, e.g. if Conf = 2, 
the choices are WK, ws xy) 


a. Enter: Number corresponding to TD pair desired 
b. Press: CONT 


8. A table is printed on the hard copy printer which contains the following 
information: 


ae the chain and lops used. to calculate the waypoint position 

b.: ‘the number of the waypoint used as the origin of the local grid 

c. the two waypoints numbers 

d. the differential xy positions and differential latitude, longitude 

e. the angle and range between waypoints 

f. the projected waypoint position coordinates based on the waypoint TDs 
‘ge the current values of the waypoint position coordinates 


9. When: "CHANGE POSITION AND LAT/LON OR WAYPOINT OF INTEREST? Y OR N" 
appears on the display line: 


ae If you want to change the values 
ae (1) Enter: Y 
(2) Press: CONT. Note: the values will be changes in the waypoint 
a table, but not on magnetic tape. Function K23 must be used to 
restore the table on tape. 
(3) “WAYPOINT TABLE CHANGED" is printed on the hard copy printer. 


10. The progras function is complete. The CRT is cleared and the program 
menu is printed. 









Function: TD MOVE 








Special Function Key: K24 





Subprograms: 


Cart_coord (Xmit(*), Wpt(25,7), Wpt(25,8), Zumit(*)) 

Rb (Zp(1), Zp(2), Zxmit(I,1) Zxmit(1,2), Bear(I), Range(I)) 
Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

; Pseudo (Glat, Glon, R(*)) 





This program function calculates the change in TD from a waypoint to a 

position offset from the waypoint. This offset in waypoint position and TD 
may be applied to the waypoint table. The change in TDs is calculated based 
on the change in distances to the transmitters. 
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Function Variables: 


Cl - Status variable which indicates if chain data has been read into 
memory 
_ Fl - Status variable which indicates if the waypoint table has been 
| read into memory 








Chain$ - Chain file, e.g. NEUS1, GTLK2, etc. 
Ch$ - First four characters of Chain$ 









a Conf ~ Chain configuration, fifth character of Chain§$, 1 = XYZ, 2 = WKY, 
car 3 = WXZ, 4 = WYZ 

Ny - Xmit(*), Power(*), Emis(*) - Transmitter data: geodetic position, power 
ve level, emission delay 






Wpt(*) - Waypoint table 
Wp - Waypoint of interest 
Move ~ Indicates if change in position is to be input as dx, dy or 

: range/bearing 

.Dx, Dy - Offset in x and y direction from waypoint 

R, B - Range and bearing of offset position from waypoint 

Zp(*) - Waypoint position and offset position 

Zxmit(*) ~ xy coordinatee of transmitters relative to local origin 

- Bear(*), Range(*) - Ranges and bearings to transmitters 

' T(*) - Variable to store intermediate calculations and TD offsets 

File$ - Waypoint file name 

Cor$ - Input variable which indicates if the offset is to be applied as a 

correction to the waypoint TD in the waypoint table 
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User Instructions: 
Prerequisite function: none. It is assumed that a waypoint file exists. 


1. Press K24. The program menu is cleared and "MOVE: CALCULATES 
Tdq = Tdpt+h(Zq)-h(Zp)" appears on tie CRT. 


2. If “CHAIN FILE?" appears on the display line: 
(1) Insure tape containing chain file is in right hand tape drive 


(2) Enter: Chain file (e.g. NEUS2, GTLK1) 
(3) Press: CONT 
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3. If "WAYPOINT FILE?" appears on the display line: 


a. Insure the tape cartridge containing the waypoint file is in the right 
hand tape drive. 

b. Enter: Waypoint file name 

c. Press: CONT 


4&4 When “WAYPOINT?” appears on the display line: 


a. Enter: Waypoint of interest 
b. Press: CONT 


5. When "Dx/Dy 1 OR RANGE/BEARING 2, 1 OR 2" appears on the display line: 


a. If the offset is to be applied in x and y components: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 6 
b. If the offset is to be applied as a range and bearing from the 
waypoint: 
(1) Enter: 2 
(2) Press: CONT 
(3) Go to Step 8 


6. When "INPUT DX (KM)" appears on the display line: 


a. Enter: x direction component of the offset in KM 
b. Press: CONT 


7. When "INPUT DY (KM)" appears on the display line: 


a. Enter: y direction component of the offset in KM . 
b. Press: CONT 
Ce Go to Step 9 


8. When “RANGE (KM) AND BEARING (DEG)" appears on the display line: 


a. Enter: The range in KM and the bearing in degrees separated 
by a comma 
b. Press: CONT 


9. The effect of offsetting the waypoint on the TDs corresponding to the 
chain configuration will be printed on the hard copy printer. 


10. When “APPLY CORRECTION TO WP? Y OR N" appears on the display line: 


a. If you want to change the waypoint parameters to the offset position: 
(1) Enter: Y 
(2) Press: CONT. (Note: This step does not change the waypoint 
data stored on magnetic tape. See K23.) 
(3) “WAYPOINT TD AND POSITION CORRECTED" is printed on the hard 
copy printer. 
b. If not: 
(1) Enter: N 
(2) Press: CONT 








11. The program function is complete. 
menu reprinted, 
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Function: Link Data Files 
Special Function Key: K25 
Subprograns: 


Link (w(*), xC#), ¥C#), 2(#), RIC*), R2C*), US(*), Hy FS) 
Store (w(*), X(*), ¥(*), z(*), R1(*), R2(*), U$s(*), N, F$) 


This program function enables multiple data files to be loaded into memory. 
Range and TD data can be corrected for each file entered. The total number of 
samples must be equal to or less than 400. The function will automatically 
ignore any samples which would cause this limit to be exceeded. 


Function Variables: 


w(*), x(*), Y¥(*), Z(*) - TD data arrays 

R1(*), R2(*) - Miniranger data arrays 

U$(*) - Time (Julian day:hours:min:sec) data array 
N - Total number of samples 

F$ - Final file name 


User Instructions: 
Prerequisite functions: none 


1. Press K25. The program menu is cleared and "LINK DATA FILES" is printed 
on the CRT. 


2. When "DATA FILE TYPE? TD & RANGE] OR TD ONLY2" appears on the display 
line: 


a. If the data file contains both TD and range data arrays (e.g. post 
Delaware data or reformatted Delaware data): 
(1) Enter: 1 
(2) Press: CONT 
b. If the data file contains only TD arrays (e.g. Delaware and pre- 
Delaware data): 
(1) Enter: 2 
(2) Press: CONT 


When "FIRST FILE NAME?" appears on the display line: 


a. Enter: File name 
b. Press: CONT 


When "CORRECT TD DATA?" appears on the display line: 


a. If TD data is to be corrected: 
(1) Enter: Y 
(2) Press: CONT 

b. If not 
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(1) Enters N 
(2) Press: CONT 
(3) Go to Step 11 


5. The start and stop time for the data collected on the current data file 
are printed on the hard copy printer. When "CORRECTION TO TDW(MICROSEC)?" 
appears on the display line: 


a. Enter: Correction to TDW in microsec. 
b. Press: CONT : 


6. When "CORRECTION TO TDX(MICROSEC)?" appears on the display line: 


a. Enter: Correction to TDX in microsec. 
b. Press: CONT 


7. When “CORRECTION TO TDY(MICROSEC)?" appears on the display line: 


a. Enter: Correction to TDY in microsec. 
b. Press: CONT : 


8. When "CORRECTION TO TDZ(MICROSEC)?" appears on the display line: 


a. Enter: Correction to TDZ in microsec. 
b. Press: CONT 


The file name is annotated with a "tc" and the corrections entered are printed 
on the hard copy printer. 


9. A list of the files linked and total number of samples is printed on the 
CRT. When “ANOTHER FILE?" appears on the display line: 


a. If another data file is to be entered: 
(1) Enter: Y 
(2) Press: CONT 
‘be. If not 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 13 


10. When "FILE NAME?" appears on the display line: 


a. Enter: file name 
b. Press: CONT 
ce Go to Step 3 


11. A final list of the files linked and total number of samples is printed 
on the hard copy printer. When "STORE DATA SET?" appears on the display line: 


a. If you want to store the data on a new file 
(1) Enter: 
(2) Press: CONT 
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b. If not 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 15 


12. When “FILE NAME?" appears on the display line 


a. Insert a tape cartridge in the left hand tape drive. 
‘be. Enter: file name 
ce Press: CONT 


13. If the data is not stored on tape, the file name will be the list of 
files linked. If the data was stored, the file name returned is the name used 
to store the data. 


14. The program function is complete. The CRT is cleared and the program 
menu reprinted. 





Function: Measured-Projected TDs 
Special Function Key: K27 
Subprograms: 


Cart coord(Xmit(*), Wpt(25,7) Wpt(25,8) Zxmit(*)) 

Project (Ww, Wpt(*), wi), x(*#), ¥(*), Z(*), Zx(*), Zy(*), Conf, Zxmit(*), 
N, V 

Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R(*), Plat, Plon) 

Rb (xl, yl, x2, y2, B, R) 


This program function calculates the statistics of the difference between the 
TDs measured and TDs projected from the waypoint based on the xy position 
calculated from the measured TDs. The result is a measure of the three TD fix 


triangle. The function can be used to estimate the third TD of a waypoint if 
two are known. 


Function variables: 


Cl - status variable which indicates if chain data is in memory 
Fl- status variable which indicates if the waypoint table is in memory 
Chain$ - chain file name 
Ch$ - first four characters if Chain$ 
Conf - chain configuration, fifth character in Chain$ 
Xmit(*), Power(*), Emis(*) - transmitting station parameters: geodetic 
position, power level and emission delay 
Wpt(*) - waypoint table 
File$ - waypoint file name 
Zxmit(*) - transmitter xy coordinates referenced to locel origin 
W - waypoint of interest 
_W(*), X(*), ¥(*), Z(*) - TD data arrays 
Pos_x(*), Pos_y *) - measurement position coordinates calculated from 
Miniranger data 
N - Number of samples 
V - Velocity of propagation 
F$ - data file name 


User Instructions: 


Prerequisite functions: 
KO - Read Data a 


K16 - Edit Data (Optional) 
K17 = Calculate XY Position from TD Data 


1. Press K27. The CRT is cleared and "MEASURED-PROJECTED TDs" is printed on 
the CRT. 


2. If "CHAIN FILE?" appears on the display line: 


(1) Enter: Chain file name 
(2) Press: CONT 
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If “WAYPOINT FILE NAME?" appears on the display line: 


a. Enter: waypoint file name 
b. Press: CONT 


4. When "WAYPOINT FROM WHICH TDs ARE TO BE PROJECTED?" appears on the display 
line: 


a. Enter: waypoint number 
b. Press: CONT 


5. The data file name is annotated with a" ", “RESULTS OF CALCULATING 
MEASURED TDS - PROJECTED TDS FROM WAYPOINT(W); FILE = (F$)" is printed on the 
hard copy printer followed by the statistics table generated by function K2. 


6. The program function is complete. The CRT is cleared and the program menu 
ie reprinted on the CRT. 


Note: The data contained in the TD arrays (W(*), X(*), Y(*), Z(*)) has been 


changed. 


fy : 
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Function: Simulate Waypoint Survey 


Special Function Key: K28 


Subprograms: 


Bear(Wpt(WP-1,7), Wpt(Wp-1,8) Wpt(Wp,7), Wpt(Wp,8), Ca) 
Bae arser x(*), ¥(*), Z(*), N, Ca, Ds, De, Sigma, Xmit(*), Zp(*), 
V, Conf 

Stat_mat(W(*), X(*), ¥(*), Z(*),. Stat(*), Cov(*), O set(*), M) 
Reg(Stat(*), Cov(*), S1(*), Rone(*), O set(*)) 

Print(Stat(*), 0 _set(*), Cov(*), Rone(*), N, 1) 

Way(S1(*), 52(*), Rone(*), Rtwo(*), N, N, Wp(*)) 

Wprint (Wp(*)) 

Range (Pl, P2, P3, P4, R) 


This program simulates the survey of a waypoint using the intersection of 
visual ranges technique. Two TD data sets are generated along the tracklines. 
defining a waypoint. Input variables are the waypoint of interest, the 
starting and stopping points of the survey lines, and the expected standard 
deviation of the TDs. The program function processes the data as if it were 
field data. Statistics and regression parameter tables are printed on the 
hard copy printer for each data set along with the waypoint table. The “true” 
TD values for the waypoint are zero. The tabulated waypoint value is the 
error in estimating the waypoint. 


Function variables: 


Cl - Indicates if Loran-C chain data has been read in memory 
Chain$ - Loran-C chain file. First four characters are the abbreviation 
for the chain (e.g. NEUS, SEUS, GTLK, etc.) The fifth character is a 
number from 1 to 4 which designates the chain configuration: 1.= XYZ, 
2 = WKY, 3 = WXZ, 4 = WYZ 
Ch$ - Chain name. First four characters of Chain$ 
_Conf - Chain configuration 
Xmit(*), Power(*), Emis(*) - Loran-C chain parameters, i.e. geodetic 
positions, power level, emission delays 
Fl - Indicates if the waypoint file has been read into memory 
Wpt(*) - Waypoint table 
Wp - Waypoint of interest 
Ca, Cb - Bearing from adjoining waypoints to waypoint of interest 
Ds, De - Start and stop distances from waypoint 
Sigma - Noise, i.e. expected standard deviation of time differences 
N - Number of semples 
Zp(*) = Waypoint position (latitude, longitude) 
W(*), x(*), Y¥(*), Z(*) - TD data arrays 
stat(*), Cov(*), O set(*) - Statistics arrays 
$1(*), 82(*), Rone(*), Rtwo(*) - Statistics and regression summary arrays 
V =~ Velocity of propagation 
Wp(*) - Calculated waypoint table 
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User Instructions: 





Prerequisite functions: A preliminary waypoint file containing estimated 
latitudes and longitudes for each waypoint is required. If a Loran-C 
chain other than NEUS] is being used, a Loran-C chain file is neces- 
sary. 


1. Press K28. The program menu is cleared and "SIMULATE WAYPOINT SURVEY" 
is printed on the CRT. 


2.. If “CHAIN FILE?" appears on the display line: 


(1) Enter: chain file name 
(2) Press: CONT 


3. I£ "WAYPOINT FILE NAME?" appears on the display line: 


a. Enter: waypoint file name 
b. Press: CONT 


4. When “WAYPOINT OF INTEREST?" appears on the display line: 


a. Enter: waypoint number 
b. Press: CONT 


The bearings from the adjoining waypoints to the waypoint of interest will 
be calculated and the results printed on the hard copy printer. 





Se 5. When "START POINT RELATIVE TO WAYPOINT (KM)?" appears on the display 
line: 


a. Enter: Start point in KM. Both survey tracklines start the same 
distance from the waypoint. A positive start point indicates a position 4 
: between the waypoints on the centerline. A negative start point indicates a 
y! position on the trackline beyond the waypoint of interest. 
‘be Press: CONT , 


| 6. When "STOP POINT RELATIVE TO WAYPOINT (KM)" appears on the display line: 
be a. Enter: Stop point in KM. Both survey tracklinee end the same 

4 distance from the waypoint. A positive stop point indicates a position 
between the waypoints on the centerline. A negative stop point indicates a 
position on the centerline beyond the waypoint of interest. 

( b. Press: CONT 
Start and Stop points are printed on the hard copy printer. 


7. When "EXPECTED STANDARD DEVIATION OF TD (MICROSEC)" appears on the 
display line: 


{ a. Enter: expected standard deviation of TDs in microseconds. All TDs 
. are assigned the same standard deviation. 
4 
| 
| 


b. Press: CONT 
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8. When "NUMBER OF SAMPLES PER TRACKLINE" appears on the display line: 


a. Enter: number of samples. The number is the same for both survey 
tracklines. 


b. Press: CONT 


The expected standard deviation and number of samples is printed on the hard 
copy printer. 


9. A data set is calculated for each trackline. The current sample being 
calculated and total number of samples appears on the display line. After a 
data set is complete, statistics and regression parameters are calculated 
and a summary table is printed on the hard copy printer. The sequence is 
repeated for the second trackline. The waypoint estimates, estimated rms 
error, and crossing angles are calculated and the results are printed on the 
hard copy printer. The “true" waypoint TDs are each zero. The values 
printed in the waypoint row are the estimation errors for the simulated 
survey. ‘ 


10. The program function is complete. 
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SUBROUTINE 


Read 
Bear 
Read alt 
Ct_at 
Way 
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Td 

G_mat 
Hi_lo 
Track 
Stat_mat 
Range 
Reg 
Patct 
Print 
Xplot 
Separate 
Wpf2 
Store 
Fehgt 
Plot 

Td2 
Rplot 
Td3 
Delete 
Fehg 
Delete_block 
Delete _ td 
Wp2 
Cart_coord 
Wp3 

Rb 
Wprint 
Wpfile 
Link 
Project 
Data 
Rotate 
Peeudo 
Cart 
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TLS 1 SUBROUTINES 


CALLED FROM 


KO,21 
K20,28 
KO,21 

Kl? 

K21,28 

K29 

K20 
K17,20,22 
K2,5,18,19 
Kl? 
K2,17,21,28 
K20,28 
K2,17,21,28 
K19 
K2,21,28 
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K3 

K17,22 
K3,16,25 

R17 ,22 

K4 

K17 

K5 

K17 

K16 

K17,22 

K16 

K16 

K17,22 
K17,22,24,27 
K17,22 
K17,22,24,27 
K21,28 

K23 

K25 

K27 

K28 
K17,22,24,27 
K17,22,24,27 
K17,22,24,27 
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i o3 ‘ é 
' £0 OPTION BASE 4 
' 20 DEG 
30 «= DIM WC 400) ,X6400) , ¥(400) ,2(400) ,R1 (400) ,R2( 400) ,US( 400644) 
40 DIM P(4),0_set(4) ,Stat(4,4),Cov(3,6),8¢4,6) ,R(3,6) ,004) 
So DIM 81(4,6) ,S82(4,6) ,Wp(4,6) ,Wpt(2S,8),T¢(3) ,Zd(2) ,FSl80) 
60 DIM Xmit(4,2),Emis(3),Bear (4) ,Range(4),Td¢3) ,Power (4) ,G123(2,3) ,G12(2,2) 
70 DIM Gi3(2,2) ,G23(2,2) ,Zxmit(4,2) ,Zp(2) ,Aa(3,2) ,Pos_x(400) ,Pos_y(400),Tp(3, 
4),Tq¢3,4) : ; 
' 80 DIM 2q(2,4),Zpp(2,4),At6400) ,Ct( 400), Tpp(2,4),Tqqt2,4),2qq(2,4) 
90 DIM Zb(2) ,Rotate (3,3) ,Gx(4,2),Px(4,2) ,Axy(2,2) 
400 DIM Tw(2),Zm(2)5Zt(2) 
440 DIM Zxx(2,4),Zxm(3,2) ,6(2,2) ,Rone(3,6) ,Rtwo(3,6) ; 
420 COM AC400),B(400),C(400) ,D¢ 400) ,RIt (400) ,R2At( 400) ,Ut6( 40090141, TS$180) 
450 V=,299792458/1.000338 
460 F=,.00335278 
280 Keys: ! 
290 ON KEY #0 GOTO KO ' 
300 ON KEY #2 GOTO K2 
340 ON KEY #3 GOTO K3 
320 ON KEY #4 GOTO K4 
: 330 4 ©ON KEY #5 GOTO KS 
| 340 ON KEY #46 GOTO K1i6 
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350 ON KEY #47 GOTO K47 

360 ON KEY #48 GOTO Ki8 
370 ON KEY #49 GOTO Ki9 
380 ON KEY #20 GOTO K20 
390 ON KEY #24 GOTO K24 
400 ON KEY #22 GOTO K22 
440 ON KEY #23 GOTO K23 
420 ON KEY #24 GOTO K24 
1 430 ON KEY #25 GOTO K2S 
WA 440 ON KEY #26 GOTO K26 
ail 450 ON KEY #27 GOTO K27 
460 ON KEY #28 GOTO K28 
480 Menu: ' 
490 MASS STORAGE IS ":TiS" 
500 PRINTER IS 16 





| 510 PRINT PAGE 

; 520 PRINT * VISUAL SURVEY: ANALYSIS & . 
| $30 PRINT “KO:READ TRACKLINE FILE DATA" 

RC , 240 PRINT "K2:STATS AND REGRESSION 0. TD DATA" 
; 5S0 PRINT “K3;:SEPARATE DATA INTO SUBFILES" 
S60 PRINT “K4:PLOT .TD DATA WITH REGRESSION LINE" 
+570 PRINT “KS:PLOT RESIDUALS OF TD DATA" 

580 PRINT “Ki6;EDIT DATA" 

590 PRINT “Ki7:CONVERT TDs TO XY AND AT/CT® 

; 600 PRINT “Ki8:PLOT XY DATA* 

610 PRINT “Ki9:PLOT/LIST AT/CT DATA" 

620 PRINT "K20:PREDICT TD* 

630 PRINT "K24:CALCULATE WAYPOINT" 

; 640 PRINT “"K22:DAISY CHAIN WAYPOINTS* 

, 650 PRINT "K23:FILE OR READ WP DATA" 

; 660 PRINT "K24:TD MOVE" 

* 670 PRINT "K2S:LINK DATA FILES* 
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680 «PRINT “K26:STORE CHAIN DATA 


698 PRINT “K27;MNEASURED-PROJECTED TDs“ , = 
700 PRINT "K26: SIMULATE WAYPOINT SURVEY" : 
720 Loop: ! 


730 4 ©=6GOTO Loop 








Fao KO: ! = READ DATA FILE 


750 PRINT PAGE 

760 PRINT “ READ DATA FILE 

770 MASS STORAGE IS “":T14" 

780 PRINTER IS 0 

790 FIXED 2 

840 CALL Read (W(x) ,XCK), YK) ,ZCK) , RICK) RACK) ,USCK) N, FS) 
870 PRINT “FILE=";F%;TABC(30); “SAMPLES=";N 

880 Td_cor: ! 

890 Td_cor$="N" 

900 INPUT "CORRECT TDs? Y or N",Td_cors 

940 IF Td_cor$<>"Y" THEN Menu 

920 PRINT "START TIME=";U$(4);TABC30);"STOP TIME=";US(¢N) 
930 INPUT "CORRECTION TO TDWCMICROSEC)?”,Weor 

940 INPUT "CORRECTION TO TDX(MICROSEC) 2% ,Xcor 

950 INPUT "CORRECTION TO TDY(MICROSEC)?", Ycor 

960 INPUT “CORRECTION TO TDZ(MICROSEC)?2",Zcor 

970 FOR I=i TON 

980 WOT =WC1)+Wcor 

990 XCI)=XC1I)+Xcor 

1000 Y¥CI)=¥(1)+Yeor 

1010 Z¢1)2Z(1)+Zcor 

1920 NEXT I 

1030 PRINT "TD CORRECTIONS: ";TAB(20); "“Wceor=";Wcor ; TAB(3S) 5 "Xcor="3Xcor ;TABCSO) | 
3"Ycor=";Ycor;TAB(4S) 3 "Zcor="3;Zcor 

1040 FS=FSa"t" 

1050 GOTO Menu 

1060 ' 

1070 ! 





: aAa9°SG% 0 «2: !). * BSTrATS AND REGRESSION 


1960 MASS STORAGE IS “:T414* 

41970 PRINT PAGE 

41980 PRINT “ STATISTICS AND REGRESSION OF TD DATA . 
1990 PPINTER IS 0 

2000 Carl Hi_lo(WC%) ,N,Bw,Lw) 

2010 CALL Hi_lo(X(xk) ,N,Bx,Lx) 

2020 CALL Hi_lo(Y(X) ,N,By,Ly) 

2030 CALL Hi_10(Z(k) ,N,Bz,Lz) 

2040 CALL Stat_matcWdw) ,XCK) , YOK), Z0K) , Stat Ke) ,Covu(k) ,O_set(®) ,N) 

2050 CALL. Reg (Stat(k) ,Cov (ek) ,SCk) ROK), O set (x)) 

2060 PRINT "TRACKLINE=";F$;TAB(20);" START TIME=";U$(1) 3 TAB(SO);" STOP TINE="| 
US(N) 
2070 CALL Print(Stat(k),O_ set(k) ,Cou(x) ,RCK),N,4) 

2080 GOTO Menu 

2090 ! 
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2.00 KB:t! * SEPARATE DATA INTO SUBF TLES 


2410 
2120 
2130 
2440 
2454 


PRINTER IS 16 
PRINT PAGE 
PRINT “ SEPARATE DATA INTO SUBFILES . 
MASS .STARAGE IS “:T44" 
p.ECALL Separate CW cu) , XK), YCK),ZCK) RICK) RACK) ,USCK) ACK) BCH) CCR) DCR) R 


At OK) RAT CH) UTS OK) Nt) 


2160 
2164 
2162 
2470 
2180 


CALL Store(ACk) , BOR) CCK), DOK) RATCH) ,R2TCK) UTS CK) NTFS) 
INPUT "ANOTHER SEPARATION? Y or N",S$ 
IF UPCS(S$[4,4])="Y" THEN K3 


GOTO Menu 
! 
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| 2oono Ka: ! PLaT TH DATA WETH REGRESS ITO 


2210 PRINT PAGE 
2220 PRINT * PLOT TD DATA WITH REGRESSION LINES “ 
2230 INPUT “PLOT? WX4,WY2,WZ3,XY4,XZS,YZ6",Plot 
2240 ON Plot GOTO Wx ,Wy,Wz,Xy,Xz,V¥z 
2250 Wx: PRINT LINCS) 
2260 CALL Plot(Lw,Bw,Lx,Bx,S(4,4), $(2,4), WK), XCK), RCL, 4)9,N, “TDX", "TDW" ,FS) 
2270 PRINT LIN(3) 
2280 GOTO Menu 
2290 Wy: PRINT LINCS) 
2300 CALL Plot(Lw,Bw,Ly,By,S¢(41,2),5(2,2) Wik) ,Y¥CR) RIL, 2) ,N, “TDY", “TDW" FS) 
2340 PRINT LIN(3) 
2320 GOTO Menu 
2330 Wz: PRINT LIN(3) 
2340 CALL Plot(Lw,Bw, Lz »>Bz, 84,3) ,802,3) ,WCk) , Z0K) ,R(1,3),N,"TDZ", "TDW" , FS) 
2350 PRINT LINCS) 
2360 GOTO Menu 
2370 Xy: PRINT LIN(3) 
2380 CALL Plot(Lx,Bx,Ly,By,S(4,4),8(2,4), XCw), Y¥(%) ,RC1,4),N,*TDY", "TDX" , FS) 
2390 PRINT LIN(3) 
2400 GOTO Menu 
2410 Xz: PRINT LIN(3) 
i 2420 CALL Plot(Lx,Bx,lz,Bz,8¢1,5), S(2, S)>,XOK) ,Z0K) ,RCL,S),N,“TDZ", “TDX" , FS) 
2430 PRINT LIN(3) 
| 2440 GOTO Menu 
2450 Y2: PRINT LIN¢3) 
2460 CALL Plot(Ly,By,Lz,Bz,8(1,6) ,$(2,6),Y(K),Z¢(K) ,R(1,6),N,"TDZ", "TDY" , FS) 
2470 GOTO Menu 
2500 =! 
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2atsioGo Kis: ! ~ PLOT REG TE DUALS 


2520 
2530 
2540 
2550 
2560 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 


‘2910 


2920 
2930 
2940 
2950 
2960 
2970 
2980 
3000 


PRINT PAGE 
He =0 
PRINT * PLOT RESIDUALS = 
INPUT “PLOT? WX4,WY2,WZ3,XY4,X7S,YZ6",Plot 
ON Plot GOTO Rwx,Rwy,Rwz,Rxy,Rxz,Ryz 

Rwx: IF R(3,4.82 THEN Skip’ 
CALL Rplot(WCm) ,X(K), SEK), ROK), 4,N, "TDW", “TDX" , FS) 
PRINT LINCS) 
GOTO Menu 

Skipi:CALL Rplot (Xe) , WK) SC), ROR), 4,N,"TDW", “TDX" ,FS) 
PRINT LINCS) 
GOTO Menu 

Rwy: IF R¢(3,2)=2 THEN Skip2 
CALL Rplot(WCu) , Y¥CK) , SC), RCH) ,2,N, "TDW", “TDY" ,FS) 
PRINT LIN(3) 
GOTO Menu 

Skip2:CALL Rplot¢Y¢(x) ,WCK) ,SCK),RCK),2,N, "TDW", "TDY" , FS) 
PRINT LIN(3) 
GOTO Menu 

Rwz: IF R¢(3,3)=2 THEN Skip3 
CALL Rplot(WCe) ,Z(%), SOK), RIKD,3,N, "TDW", "TDZ" , FS) 
PRINT LIN(3) 
GOTO Meny 

Skip3:CALL Rplot(Z(k) ,WCK) ,S(K) ,RCK),3,N, "TDW", "TDZ" ,FS) 
PRINT LINC3) 
GOTO Menu 

Rxy: IF R¢3,4)=2 THEN Skip4 
CALL Rplot¢(X¢(Kk) ,Y¥CK) ,SCK), ROK) ,4,N,"TDX", "TDY" , FS) 
PRINT LIN(3) 
GOTO Menu 

Skip4:CALL Rplot¢cY¥(x) ,X(R), SCH), ROK) ,4,N,"TDX", “TDY" , FS) 
PRINT LIN(3) 
GOTO Menu 

Rxz: IF R(3,5)=2 THEN SkipS 
CALL Rplot(X¢(k) ,Z¢K) , SK), R(K),S,N,"TDX", "TDZ" , FS) 
PRINT LIN(3) 
GOTO Menu 

SkipS:CALL Rplot¢Z(e) ,XCK) , SCH) ROK) SN, "TDX", "TDZ" , FS) 
PRINT LIN(3) 
GOTO Menu 

Ryz: IF R(3,6)=2 THEN Skips 
CALL Rplot¢¥Ou) , Z(H), SCH), RCK) ,6,N,"TDY", "TDZ* , FS) 
PRINT LINC(3) 
GOTO Menu 

Skip6:CALL Rplot¢Z(R) , VCR) ,SCk) ROK) ,6,N,"TDY", “TDZ" ,FS) 
PRINT LIN(3) 
GOTO Menu 
! 
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3020 K4G@:11° * EDEKT TH BATA 


3030 
3040 
3050 
30514 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3124 

3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3140 
3150 

3160 

3170 
3180 

32140 


MASS STORAGE IS °:T1414"* 
PRINT PAGE 
PRINT * EDIT TD DATA ° 
Edit=4 
INPUT “SINGLE LINE1,BLOCK2,OR TD-CLIP3?",Edit 
ON Edit GOTO Single,Blok,Clip,More 
Single:CALL Delete(WCe) ,XCK),YCK) ,Z(K) RICK) RACK), US(E) NFS) 
GOTO More . 
Blok: CALL Delete bDlok(WC(K) ,XCK), VCR), ZK), RACB) RACK) , USC) N, FS) 
GOTO More 
Clip:CALL Delete _tdC WC) ,XCR) , VCH), Z0K) , RACK) RACK) ,USCHK) NFS) 
More: ! 
INPUT “EDIT MORE DATA? (Y or N)",8$ 
IF UPC$(S$[1,41])=“Y" THEN Ki6 
INPUT “LIST DATA?" ,S$ 
IF UPC$(S$14,4])¢>*Y" THEN Stor 
FIXED 2 
FOR I#4 TON 
PRINT T5WCL) ;XCI) YCI) 5 Z01) ;RACT) ;R2ACI) USI) 
NEXT I 
Stor: ! So : 
INPUT “ STORE EDITED DATA? Y OR N ",S$ 
IF UPC$(S$£4,4))¢>"Y" THEN Menu 
CALL Store(WCR) , X(K), VCR), ZK), RICK) RACK) ,USCK) NFS) 
GOTO Menu 
] 
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KA7%1 9 * CONVERT TH TO KY 
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3230 PRINT PAGE 

3240 PRINT " CONVERT TD TO XY . 

3250 MASS STORAGE IS “:T4iS" 

3260 MAT Pos_x=(0) 

3270 MAT Pos_y=(0) 

3280 MAT Ct#(0) 

3290 MAT At#(0) 

3300 Chain: ! 

3310 IF Ci=#i THEN Wp_file : 
3330 INPUT “CHAIN FILE?",Chains ! 
3340 Ci=4 é 

3360 ASSIGN #4 TO Chains 

3370 READ #1;Xmit(K) ,Power (kK) ,Emis(®) 

3380 Wp_file: ! 

3390 IF Fiz=4 THEN Xmit_coord 

3400 INPUT “WAYPOINT FILE NAME?”,Files 

3410 Fizi 

3420 ASSIGN #14 TO Files 

3430 READ #4 ;Wpt (x) 

3440 Xmit_coord: ! 

3450 CALL Cart_coord(Xmit¢x) ,Wpt(25,7) ,Wpt(25,8) ,Zxmit(m)) 

3460 Waypoint: ! 

3470 INPUT “WAYPOINT TO" ,Wt 

3480 INPUT "WAYPOINT FROM" ,Wf 

3490 Range_bearing: ! 

3500 FOR I=i TO 4 

3510 CALL RbDCWptCWt,S) ,WottWt,6),Zxmit(l,4),Zxmit(1,2) , Bear tl) ,Range(I)> 
3520 NEXT I 

3530 G_mat: ! 

3540 Zp (4 =Wpt (Wt ,S) 

3550 Zp(2)=vpt(wWt,6) 
3560 CALL G_mat(Power (%),V,Range(®) , Bear (&) ,Zp(k) ,Aal®) ,Gi23CR) ,C12(K) CESK: 
>, Gi3(K)) . 
3870 Configuration: ! 

3580 PRINTER IS 0 

3600 Conf=VAL (Chain$(S,S1) 

3610 Ch$=Chain$(i,4] 

3630 INPUT *TWO OR THREE TD SOLUTION?" ,So 

3640 IF So=2 THEN So2 

3650 IF Soz=3 THEN SoS 

3660 So3:; ! THREE TD SOLUTION 

3670 CALL WpSCWp t(e) Conf Wt, To ®) ,Zpp (xk), LS) WAYPOINT TD 

3680 PRINT "THREE TD SOLUTION, CHAIN=";Ch$;" LOPs=";L$ 

3690 FOR I=i4 TO N 

3700 CALL TdASCWCK) ,XCK),YCK), Z(H), 1, Conf, Tq(e)> 

3740 CALL Fehg(Zxmit(%) ,Zpp Ck) , Tp k) , Tq kk) ,G123(k) ,Zq6&) ,V,3) 

3720 Pos_x(1)=Zq(i,4) 
3730 Pos_y(I)=Zq(2,4) 

3740 DIsP I 

3750 NEXT I 

3760 ! CALCULATE POSITION OF FROM WAYPOINT (Wf) 

3770 CALL Wp3(Wpt (ek) Conf ,WF,TQCk),Zxx(K), LS) {WAYPOINT FROM TD 

3780 CALL Fehg(Zxmit(e) ,Zpp(k),Tp(k),Tq() ,Gi23¢K),Zq(k),V,3) 





ne 
rn) 


5790 


$800 So2: 


$810 


GOTO Ct_at 
1 TWO TD SOLUTION 


CALL Wp2CWpt(s) ,Conf, Wt, Tpp(s), Gale steRey Gi2() ,G23(8) ,Gi3SC&) CCK), LS 


'Zxmi tow), Zxm(K) > 


$820 PRINT “TWO TD SOLUTION, CHAIN=";Ch8;* LOPs=";L$ 

5830 FOR I=4 TO N. 

$840 CALL Td2(WCR), X(K) , VCR), Z(8),1,Conf,Pair , Tqqt®)) 

$850 CALL Fehg(zxm(k), Zpp(®), Tpptk), Taqtk), G(R) ,Zq(%),V,2) 

$860 Pos_x(I)=Zq(i,1) 

$870 ° Pos. “y(T)879q (2, 4) 

0880 pDISsP I 

1890 NEXT I 

1900 ! CALCULATE POSITION OF FROM WAYPOINT (Wf) 

19140 CALL Wpf2(Wpt(k) ,Conf,Pair ,Wf , Tqq(k)> 

1920 CALL Fehg(Zxm(®),Zpp(%) , Top x) ,Tqaq(k) ,G(k) ,Zq(k) ,V,2) 

1930 ! CALCULATE CROSSTRACK AND ALONGTRACK POSITIONS 

1940 Ct_at: CALL Ct _at(Pos_x(®) ,Pos_y (kK), Crk) ,AtCK) ,WpeCWt,S) Wptl(Wt,6) ,Zaqli,4d 
.»2q(2,4),N,R, Angle) 

15950 DISP R,Angle 

i960 CALL Stat_mat(Pos_x(R) ,Pos_y(K) ,Cr(k) ,AtCK) Stat) ,Cov (ek) ,O set(x) ,N} 
1970 CALL Reg(Stat(k) ,Cov (ez) ,S¢k) ,RCK) ,O_set(k)) 

3980 PRINTER IS 0 

59990 CALL Track (Stat(x) ,O_set(k) ,Cov (Xk) ,R¢(k) Sample ,F$,Wt ,Wf,Angle,N) 

1000 GOTO Menu 


1020 
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4040 
4041 
4050 
4051 


K4AG31 * PLOT XY DATA 


PRINT PAGE. 
Plot=4 
PRINT " PLOT XY DATA 7 


INPUT “STANDARD XY PLOTi OR PLOT TO CHART SCALE2? 1 OR 2"°,Plot 


| 
4052 IF Plot#=2 THEN Chart ia 
4060 CALL Hi_lo(Poes_x(%),N,Maxx,Minx) | 
4070 CALL Hi_lo(Pos_y(&),N,Maxy,Miny) 3 
4080 CALL Xplot(i, Pos_ x(k), Pos_y(«) , Minx ,Maxx,Miny,Maxy,N,4 eeeroeicete | 4 
4090 GOTO Menu { 
4091 Chart: ! : 
4092 INPUT “WAYPOINT FOR AXES?" ,Axes 4 
4093 Xaxes=Wpt (Axes ,5) 4 
4094 Yaxes=Wpt (Axes, 6) 74 
4095S INPUT “WAYPOINT OFFSET FROM LOWER LEFT CORNER OF PLOT? X,YCKH)" ,Xoffse: 
,Yoffset 
4096 CALL Xplot(4,Pos_x(X) ,Pos_y(X) ,Xaxes,Xoffset, Yaxes,Yorfset,N,1,F$,Ch,L 
$,5) 
4097 GOTO Menu 


4100 ! 





' @440 KAG1E * PLOT CT/AT DATA 


- 4420 PRINT PAGE 
4430 PRINT * PLOT/LIST ALONG TRACK CROSS TRACK DATA 
41434 Opt: INPUT “PLOT 4; LIST 23} QUIT 3*,Opt 
4132 IF (Opt¢i) OR (Opt>3) THEN Opt 
4133 ON Opt GOTO Plot,List,End 
41440 Plot: CALL Hi_lo(Ct(e) ,N,Maxc Mine) 
4150 CALL Hi_1o(At(%),N,Maxa,Mina) 
4460 CALL Patct(At(&),Ct(&) ,N,Mina,Maxa,Minc ,Maxc ,Wt,Wf,F$,R,4,Data) 
4164 GOTO Opt 
4463 List: PRINTER IS 0 
4164 PRINT "FILE: "3FS . 
4165 PRINT LIN(4); "SAMPLE" ;TAB(4S) ; "ALONG TRACK (KM)";TAB(34);"CROSS TRACK ( 
M)";TAB(SS);"TIME (DtHiM:8)" 
4166 PRINT LIN(4) 
4167 FOR I=i TO N 
4468 PRINT 1; TAB(20) ;At¢I) ; TABC37) ;Ct(1)%1000; TABCSS) sUS(T) 
4169 NEXT I 
4170 GOTO Opt 
4474 End: COTO Menu 
4180 ! 





200 K201 ! a PREDICT 


4210 PRINT PAGE 

4220 PRINT “ TD PREDICTION 

4230 MASS STORAGE IS ":TiS* 

4240 PRINTER IS 0 

4250 FIXED 3 

4260 IF Ci=i THEN Wpfile 

4280 INPUT “CHAIN FILE?",Chain$ 

4290 Ci=i 

4310 ASSIGN #4 TO Chains 

4320 READ #1 ;Xmit(%) ,Power (x) ,Emis(x) 

4330 Wpfile: INPUT "IS POINT OF INTEREST ON WAYPOINT FILE? Y OR N",PS$ 
4340 IF P$="N" THEN Input 

4350 IF Fizi THEN Jump 

4360 INPUT “WP FILE NAME?” ,File$ 

4370 Fiz4 

4380 ASSIGN #1 TO Filet 

4390 READ #1;Wpt(%) 

4400 Jump: INPUT "WAYPOINT NO.?7",Wn 

4410 Lat=Wpt(Wn,7) 

4420 Lon=Wpt (Wn ,8) 

4430 GOTO Td 

4440 Input: INPUT “ INPUT LAT IN DEGREES,MIN,SEC",D,M,S 

4450 Lat=D+M/60+S/3600 

4460 INPUT “INPUT LON IN DEGREES ,MIN,SEC",D,M,S 

4470 Lon=-(D+M/60+S/3600) 

4480 FOR I=4 TO 4 

4490 CALL Range(Lat,Lon,Xmit¢(1,4),Xmit¢1,2) ,Range(I)) 

4500 CALL Bear (Lat,Lon,Xmit(l,i),Xmit(1l,2)>,Bear (I>) 

4510 NEXT I 

4520 CALL Td (Range (*) ,V,Emist(k) ,Td(x)) 

4530 CALL G_ mat (Power (X), Vv yRange(x), Bear (x) ,Zp(k) ,Aa(K) ,G123(k) ,G12(&), G23CK- 
>,GA3C#)) . 
4540 Gdop: ! 

4550 Gdopi2=(Gi2(i ,4)*2+612¢4 , 2) *°24+612(2,1)*°24+612(2,2)°2)*.5 

4560 Gdopi3=(613¢1,41)*24+613¢4,2)*24613(2,41)424614302,2)°2)%.S 

4570 Gdop2d=(623014,1)°%24+623 (4 ,2)°24+623(2,4)*2+623(2,2)°2)%.5 

4580 Gdopi23= (1234, 1)*24G423(4, 2)*24G123(4, 3)*2+G123¢2, 41> *°24+64123(2,2)*2+Gi4 
23(2,3)*2)°.5 

4590 FIXED 4 

4610 Ch$=Chain$li,4) 

4620 PRINT “CHAIN=";Ch$ 

4630 PRINT "LAT=";Lat; TAB(4S) 3 “LON=";Lon 

4640 FIXED 3 

4660 Conf=VAL (Chain$(S,5]) 

4670 ON Conf GOTO Txyz,Twxy, Twxz, Twyz 

ere Txyz:PRINT “PREDICTED: TDX=";Td(4) 3 TABC3S) ; “TDY="3 Td (2) s TABCSS) 3 "TDZ="3 Td (3 


4690 IF P$="N" THEN 4740 

Bie ‘ PRINT “SURVEYED: TDX=";Wpt(Wn,2) ;TABC3S) ;"TDY=" Wnt (lin, 3) 3 TARCSS) 3 "TDZ 
=" Wot Wn, 4) 

4740 PRINT TAB(20) ; “RANGE (KM) "3 TAB( 40); "BEARING (DEG) * 

4720 PRINT “MASTER”; TAB(20) ;Range (4) ;TAB( 40) ; Bear (4) 

4730 PRINT "X-RAY"; TAB(20); sRange(1),TAB(40) ;Bear (4) 
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4740 PRINT “YANKEE”; TAB(20) ;Range (2) ; TAB(C 40) ; Bear (2) 
4750 PRINT "ZULU"; TAB(20) ;Range(3) ; TABC40) ; Bear (3) 
4760 PRINT TAB(22) 3 "XYZ"; TAB(37) 3 "XY" 3 TAB(S2) 3 “XZ* ; TABC67) 5 “YZ" 


4770 PRINT "GDOP (M/NANOSEC) “; TAB(20) ;Gdopi23; TAB(3S) ;Gdopi23 TAB(S0) ;Gdopi3;TA | 


B(6S) ;Gdop23 

4780 GOTO Menu 

4790 Twxy:PRINT “PREDICTED: TDW=";Td(4) 3 TABC(3S) ; “TDX="3Td¢2) 5 TABCSS) 3 *TDY=" 3; Td (3 
) 

4800 IF P$="N" THEN 4820 

4810 PRINT “SURVEYED: TDW=";Wpt(Wn, 4); TABC3S) s “TDX=";WptlWn,2) ; TABCSS>) 3 "TDY 
="sWpt(Wn,3) 
4820 PRINT TAR(20) 3; “RANGE (KM) "3; TABC 40); “BEARING( DEG) * 

4830 PRINT “MASTER”; TAB(20) ;Range (4) ;TAB(40) 3; Bear (4) 

4840 PRINT "WHISKEY"; TAB(20) ;Range(4); TAB( 40) ; Bear (1) 

4850 PRINT “XRAY; TAB(20) ;Range (2) ; TAB( 40) ; Bear (2) 

4860 PRINT “YANKEE”; TAB(20) ;Range (3); TABC40) ; Bear (3) 

4870 PRINT TABC22) ; "WXY"; TAB(37) 3 "WX"; TAB(S2) ; "WY"; TAB(67) 5 “XY” 
4880 PRINT “GDOP (M/NANOSEC) “; TAB( 20) ;Gdopi123; TAB(3S) ;Gdopt2; TAB(S0) ;Gdopi3;T 


AB( 65) ;Gdop23 

4890 GOTO Menu | 
4900 Twxz:PRINT "PREDICTED: TDW2";Td(4); TABC3S) 5 “TDX3";Td(2) 3 TABCSS) 3 “TDZ=" T4663 
) . 


4910 IF P$="N" THEN 4930 ‘ 

4920 PRINT "SURVEYED: TDW=";Wpt(Wn,1);TABC3S) 3 “TDX=";Wpt(Wn,2) ;TABCSS) 3 "TDZ 
="sWot(Wn,4) 

4950" PRINT TAB(20); "RANGE (KM)";TAR( 40) ; "BEARING( DEG) "* 

4940 PRINT "MASTER"; TAB(20) ;Range (4) ; TABC(40) ; Hear (4) 

4950 PRINT "WHISKEY"; TAB(20) ;Range (4); TAB(40) ; Bear (4) 

4960 PRINT "XRAY"; TAB(20) ;Range(2) ; TAB(40) ; Bear (2) 

4970 PRINT "ZULU"; TAB(20) ;Range(3); TAB(40) ; Bear (3) 

4980 PRINT TAB(22) ; “WXZ."3 TABC37) 3 "WX" 3 TAB(S2) 5 "WZ"; TAB( 67) 3 "XZ" 

4990 PRINT "“GDOP (M/NANDSEC) "; TAB(20) ;Gdopi23; TABC(3S) ;Gdopi2; TAB(SO) ;Gdopi3;T 
AB( 65) ;Gdop23 

$000 GOTO Menu 

S010 Twyz:PRINT "PREDICTED: TDW=";Td(4); TABC3S) 5 "TDY="3 Td(2) 3 TABC(SS) 5 "TDOZ=" 3 Td(3 
) 

so2o IF P$="N" THEN S040 

S030 PRINT "SURVEYED: TDW=";Wpt (lin, 4); TABC3S) s"TDY=" ;WptiWn, 3); TABCSS) ;"TDZ | 
="s;Wpt (Wn, 4) 
5040 PRINT TAB(20) 3 "“RANGECKM) "3 TAER( 40); "BEARING( DEG)" 

soso PRINT "MASTER"; TAB(20) ;Range(4);TAB(40) ; Bear (4) 

S060 PRINT "WHISKEY"; TAB(20) ;Range (4); TAB(40) ; Bear (4) 

S070 PRINT "YANKEE" ;TAB(20) ;Range(2) ; TABC 40) 3 Bear (2) 

5080 PRINT "ZULU; TAB(20) ;Range(3) ; TAB(40) ; Bear (3) 

5090 PRINT TAB(22) ; "WYZ"; TAB(37) 3 "WY"; TABCS2) 3 "WZ" 5 TAB( 67) 5 "YZ" 

5100 PRINT "“GDOP (M/NANOSEC) "; TAB(20) ;Gdopi23;TAB( 35) ;Gdopi2;TAR(SO) ;Gdopi3;T | 


AB(ES) ; Gdop2s 
$110 GOTO Menu 
$130 ! 





S440 Ket: ! SAL. CULATE WAYPOINT 


5150 PRINTER I8 16 

5160. PRINT PAGE 

S170 PRINT * CALCULATE WAYPOINT 

5180 MASS STORAGE IS ":T14" 

5190 PRINTER IS 0 

$200 ! TYPE OF DATA FILE 

$210 Read=4 ; 

$220 INPUT "DATA FILE TYPE? TD&RANGES OR TD ONLY2" ,Read 
$230 IF (Read<)i) AND (Read<>2) THEN $220 

S240 ! READ FIRST DATA FILE AND CALCULATE STATS 
$250 ON Read GOTO S260,5280 

5260 CALL Read(W(K) ,X¢K), YOK), Z0K) RACK) ,RACK) ,US CK) NS, FS) 
$270 COTO $290 

5280 CALL Rend_ale(WCk) ,XCK) , YOK), ZCK) ,USCK) NL, FS) 

$290 PRINT "“TRACKLINE ONE=",F$ 

$300 CALL Stat _matCWCK) ,XCK), YOK), Z0K) ,Statck) ,Covck) ,O_set¢(k) , Ni) 
$340 CALL Reg(Stat(k) ,Cov(k) ,Si(K) ,Rone(k) ,O_set(x)) 

$320 CALL Print (Stat(k) ,O set(k) ,Covtx) ,Rone(*) ,N1,1) 

$330 ! . READ SECOND DATA FILE AND CALCULATE STATS 
$340 ON Read GOTO $350 ,5370 

$350 CALL Read (WOK) ,XCK), YORK), Z0K) RACK) RACK) ,USCK) ,N2,FS) 
S360 GOTO $380 

$370 CALL Read alt(WCk) ,XCK) , YOK) ,Z0K) ,USCK) ,N2,FS$) 

$380 PRINT “TRACKLINE TWO=",FS$ 

$390 CALL Stat _matCWck) ,XCK) , YOK) ,Z0K) ,Stat(K) , Cov (ek) ,O_ set (x) ,N2) 
5400 CALL Reg(Stat(xk) ,Cov ck) ,S2CKk) ,Rrwo (kK) ,O set(x)) 

$410 CALL Print(Stat(k) ,O set(k) ,Coucxk) ,Rtwo tk) ,N2,4) 

$420 ' CALCULATE INTERSECTION OF REGRESSION LINES 
5430 CALL Way(Si¢k) ,S2CK) ,Rone (kK) ,Rtwo (kK) ,Ni,N2,Wp() >) 

$440 CALL Werint(Wp¢x)) 

5450 GOTO Menu 

5460 ! 








“3470 K22: ! - DATSY CHAIN 


5480 PRINT PAGE 

5490 PRINT “ DAISY CHAIN = 
5500 PRINTER IS 0 

$510 MASS STORAGE IS *;:T4S"* 

$$20 ! INPUT CHAIN DATA 

5530 IF Ci=i THEN S610 

$550 INPUT “CHAIN FILE?“ ,Chain$s 

5560 Ciz=i4 

SS80 ASSIGN #4 TO Chains 

$590 READ €15;Xmit(k) ,Power(*%), Emis(k) 
5610 “Conf=VAL(Chains{S, $)) 

5620 «= - Ch$=Chainsli ,4] 

5630 ' INPUT WAYPOINT FILE DATA 
5640 IF Fi=4 THEN 5690 

5650 INPUT “WP FILE?” , Files 

$660. ~Fiwi AF 

5670 ASSIGN #1 TO Files 

S680 READ #1 ;Wptcx? 


5690 { CALCULATE XY COORDINATES OF TRANSMITTERS 
S700 CALL Cart coord (Xmit (x) ,Wpt(2S,7) ,Wpot(25,8) ,ZxmitCe)) 
5740 ! INPUT START AND STOP WAYPOINTS 


5720 INPUT "START WAYPOINT NO. ?",Rw 

$730 INPUT "END WAYPOINT ?",Iw 

5740 ! CALCULATE G- MATRICES FOR Rw. 

$750 FOR I=1 TO 4 

5760 CALL RbCWpt(Rw,S) ,Wpt(Rw,6),Zxmit(1, 1), Zxmit(l,2) , Bear (1) ,Range(T)) 
5770 NEXT I 

5780 Zp (4) =Wpt(Rw,S) 

5790 Zp(2d=Wpt (Rw, 6) 

5800 CALL G_mat(Power(&) ,V,Range(X) ,Bear (mk) , Zp) ,AaCK) ,GL23CK) ,6412¢6K) ,G23¢k) 
,Gi3¢k)) 

5810 ! INPUT TWO OR THREE TD SOLUTION 

$820 INPUT "TWO OR THREE TD SOLUTION? 2 OR 3"“,So0 

S830 IF (S042) DR (S0>3) THEN $820 

5840 IF So=2 THEN Ctwo 

$aso IF So=3 THEN Cthree 
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S860 ! CALCULATE POSITION OF Iw 

S870 Ctwo: ! TWO TD SOLUTION 

5880 CALL Wp2(pt (me) ,Conf,Rw, Tpp (x) Pair, Zpp(k) ,GL2(K) , GARR) GIS), GOK), LS 
' y>Zxmit (me) ,ZxmeK)) 

5990 PRINT “TWO TD SOLUTION, CHAIN=";Ch$;" LOPs=";L$ 

5900 CALL Wpf2CUpt(x) ,Conf,Pair Iw, Tqq Oe)? 

5910 CALL Fehg(Zxm(x), Zpp(e), Tepe), Taq (k) , G(R) ,ZQ(K) ,V,2) 

$920 GOTO Print 

S930 Cthree: |! THREE TD SOLUTION 

5940 CALL WpS(Wpt(k) Conf, Rw, Tp (#),Zop CR), LS) 
- 5950 PRINT "THREE TD SOLUTION, CHAIN=";Ch$;" LOPs=";1¢ 

S960 CALL WpSCWpt(m) Conf, Iw, Ta (®) ,Zxx CK), LS) 

5970 CALL Fehg(Zxmit(x>, Zpp(®), Tp(e), Tae), G4123¢%),ZQ¢(R),V,3) 

S980 Print: ! PRINT RESULTS 

S990 DEG 

#000 Dx=ZqQ(1,4)-Wot(Rw,S) 

6010 Dy=Zq(2,4)-Wpt (Rw, 6) 


A-61 








6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6140 
6420 
6130 
6140 
6150 
$)" 

6160 
6170 
6180 


Dlat=Dy/(1.852%60) 

Dion=Dx/(1.852k60%COS (Wot (Rw,7))) 

Lat=Wpt(Rw,7)+Diat 

Lone=Wpt(Rw,8)+Dlon 

AZATN(Dx/Dy) 

IF Dy<0 THEN A=A+i180 

IF ACO THEN A=A+360 

R=SQR (Dx *2+Dy*2) 

FIXED 0 . 

PRINT "LOCAL GRID CENTERED AT WP";25 

PRINT “ WAYPOINT“ ;Iw; “REFERENCED TO";Rw 

FIXED 3 

PRINT TAB(410);"Dx="3Dx, "Dy=" 3 Dy; TABC40)3"D_lat=";Dlat,"D_lon=";Dion 
PRINT TAB(410); “ANGLE=";4A;" RANGE="5R 3 °KMC"3R/4. 852; "NM," 3R/.9144; "KYD- 


PRINT TAR(40) 3 "X="3Zq4,4), "Y="3Zq(2,4); TABC40) 5 "LAT@=";Lat, "LON=";Lon 
PRINT “CURRENT CO-ORDINATES: “ 
PRINT TAR(40); "X="; WptiIw,5),"VY=";Wpt (Iw, 6); TABC4u) 5 "LAT=";WpttIw, 7), WL 


ON=";Wpt¢(Iw,8) 


6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 


INPUT “CHANGE POSITION AND LAT/LON OF WAYPOINT OF INTEREST? Y OR N",Ch$ 
TF Ch$<>"Y" THEN 6260 

Wpt(Iw,5)=Zq9(4,4) 

Wpt(Iw,6)=Z7q¢(2,4) 

Wet(Iw,7)=Lat 

Wpt(Iw,8)=Lon 

PRINT “WAYPOINT TABLE CHANGED” 

GOTO Menu 
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6290 
6300 
6310 
6320 
6330 
6350 


PRINT PAGE 
PRINT * FILE WAYPOINT DATA 
MASS STORAGE IS ":TiS* 

CALL Wpfile(Wpt(«),F4,Files) 


GOTO Menu 
' 
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6370 
6380 
6390 
6400 
6410 
6420 
6430 
6450 
6460 
6480 
6490 
6510 
6S20 
6530 
6540 
6550 
6560 
65790 
6S80 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
67490 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 


PRINT PAGE 
PRINT "* MOVE: CALCULATES Tdq=Tdp+h(Zq)-h(Zp) *. 
PRINTER IS 0 
MASS STORAGE IS “;T4iS" 
FIXED 3 
' INPUT CHAIN DATA 
IF Ci=i THEN 6510 — 
INPUT "CHAIN FILE?",Chains 
Cini 
ASSIGN #4 TO Chains 
READ €45;Xmit(k) ,Power (%) ,Emis(x) 
Ch$=Chain$(4,41 
Conf=VAL (Chain${£5,5)) 
! INPUT WAYPOINT FILE DATA 
IF Fi=ii THEN 6590 
INPUT "WAYPOINT FILE?" Files 
Fiz=4 
ASSIGN #1 TO Files 
READ #i;Wot cx) 
INPUT WAYPOINT NUMBER AND OFFSET 
aNeur "WAYPOINT?" , Wp 
INPUT "Dx/Dyi OR Range/Bearing?2, 4 OR 2",Move 
IF (Move(>4) AND (Moved>2) THEN 6610 
ON Move GOTO X_y,Rb 


Xy! INPUT "INPUT Dx(KM)",Dx 


INPUT "INPUT Dy(KM)",Dy 
GOTO 6700 

INPUT “RANGE(KM) AND BEARING(DEG)",R,B 
Dx=RKSIN(B) 
Dyshecee te? 

CALCULATE XY COORDINATES OF TRANSMITTERS 
CALL Cart_coord(Xmit(k) ,Wpt (25,7) ,Wpt(25,8),Zxmit¢e)) 
CALCULATE h¢Zp) 

rallies =Wpt (Wp ,S) 
Zp (2)=Wpt (Wp ,6) 
FOR I=4 TO 4 
CALL Rb(Zp(4),Zpl2]),Zxmir(1, 4), Zxmit(1,2) Bear (1) ,Range(I)> 
NEXT I 
FOR I=4 TO 3 
TCI) =(Range(I)-Range(4))/V 
NEXT 1 
! CALCULATE Dtd=h(Zq)-n(Zp) 
Zp (4=Zp C4 )4+Dx 
Zp(2>=Zpl2>+Dy 
FOR I=i TO 4 
ieee R(ZpCi),Zpl2),Zxmitcl,4),Zxmiti1,2), Bear (1) ,Range(I)) 

TI 
FOR I=4 TO 3 
TCI) =(Range(I)-Range(4))/U-TC(T) 
NEXT I 


! PRINT RESULTS AND APPLY CORRECTION TO WPCOPTIONAL) 


FIXED 3 


PRINT “AT WAYPOINT: ";Wp3", A MOVE OF Dx=";Dx;"KM AND Dy=";Dy; "KM" 
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! Te nn Te 


6930 PRINT “RESULTS IN TD CHANGES (MICROSEC). OF 1” | 
6940 ON Conf GOTO Dxyz, Dwxy ,Dwxz, Duyz 

6950 Dxyz:PRINT TABCS) 3 "Dtdx="37T¢4) ; TABC20) 5 “Dtdy=";T(2) 3 TABC40) 5 "Dtdz="* 5; T(3) 
6960 INPUT “APPLY CORRECTION TO WP? Y OR N",Cors 

5970 IF Cor$(>“Y¥° THEN Menu 
6980 Wpt(Wp ,2)=Wpt(Wp,2>+T(4) 
6990 Wot(Wp, 3 2WptiWp,3+TC2) 

7000 Wpt(Wp , 4) =Wpt (Wp ,4)4+T(3) 

7010 Wot (Wp ,5)=Zp id 

7020 WptCWp ,6)2Zpl2) 

7630 PRINT “WAYPOINT TD AND POSITION CORRECTED" 

7040 GOTO Menv . : : 

7030 Duxy:PRINT TABCS) 5 "Dtdw=" 374); TABC20) 5 “Drdx=" 5,762) 5 TARC4O) 3 “Dtdye";T¢3) 
7060 INPUT “APPLY CORRECTION TO WP? Y OR N”,Cors 

7070 IF Cor$<>"Y* THEN Menu 

7080 WptCWp ,d=“Wpt(Wp, 44704) 

7090 Wpt(Wp ,2>=Wpt(Wp,2)4+Tl2) 

7400 Wot (Wp, 3)sWpt(Wp ,3)+T¢3) 

7440 Wpt(Wp ,S)=Zp¢i) 

74120 Wpt (Wp ,6)=Zp 2) I 
7430 PRINT “WAYPOINT TD AND POSITION CORRECTED” 

7440 GOTO Menu 

7150 Dwxz:PRINT TABCS) 3 "Drdw="3T(4) 3 TABC20) 5 "Dtdx="3 162) 3 TABC4SO) 5 “Dedz="37T¢3) 
7460 INPUT “APPLY CORRECTION TO WP? Y OR N",Cors 

7470 IF Cor$(>"¥" THEN Menu 

7480 Wet(Wp, i) =WptiWp, 44704) 

7190 Wet(Wp ,2d=Wpt(Wp,2)4+T2) 

7200 Wpt(Wp ,4)=Wpt (Wp ,4)+TC3) 

72410 Wot (Wp ,S)=Zp (i) 

7220 Wpt (Wp ,6)=Zp (2) 

7230 PRINT "WAYPOINT TD AND POSITION CORRECTED" 

7240 GOTO Menu 

7250 Dwyz:PRINT TAB(S) ;"Drdw=" 3764); TABC 20) 3 "Drdy=" 3762) ; TABC4O) 5 "Dtdz="31(3) 
7260 INPUT “APPLY CORRECTION TO WP? Y OR N",Cors 

7270 IF Cor$<(>"Y¥" THEN Menu 

7280 Wpt(Wp, L=Wpt(Wp,49+T (4) 

7290 Wet(Wp, Sr =WptCWp,3)+T2) 

7300 Wot (Wp ,4)=WptCWp ,4)+T¢3) 

7310 Wrt(Wp ,Sd=Zp (i) 

7320 Wpt(Wp ,6)=Zp¢2) 

7330 PRINT "WAYPOINT TD AND POSITION CORRECTED" 

7340 GOTO Menu 

7360 ! 





FB&at Kees 1 i * LINK DATA FILES 


7380 
7390 
7400 
7410 
7420 
7430 


7440. 


7450 
7460 
7470 
7480 
74B4 


PRINT PAGE : 
PRINT * LINK TD DATA FILES * 

MAT W=(0) 

MAT X=(0) 
MAT Y=(0) | 
MAT Z=(0) 

FOR I=4 TO 400 | 
Uga"" 

NEXT I | 
CALL Link(WCk), KOR), YCR),Z0K) ,RLCK) RACK) USC K) ,N, FS) | 
Gon Menu i 
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FAaPQ K2G:! * SrareE CHAIN DATA 


»7500 
17540 
-7520 
. 7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7740 
7720 
7730 
7740 
77530 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7B40 
7850 
7860 
7870 
7880 
7890 
7900 
SION 
79140 
7920 
7930 
‘7940 
[7950 
7960 
7970 
7980 
is¢4i) 
7990 
is(2) 


MASS STORAGE IS ";:T4S* 

PRINTER IS 16 

PRINT PAGE 

PRINT * STORE CHAIN DATA , 

PRINT LIN(i0) 

PRINT "PLACE TAPE CARTRIDGE IN RIGHT HAND TAPE DRIVE" 
! INPUT FILE NAME AND CHECK FOR CORRECT FORMAT 
INPUT “INPUT CHAIN FILE NAME" ,Chain$s 

IF LEN(Chain$)<>S THEN 7570 

IF (VAL(Chain$[5,51)>4) OR (VAL(Chain$(S,5])<4) THEN 7570 
Conf=VAL. (Chain$(5,51) 

! INPUT MASTER DATA 

PRINT PAGE ,LIN(20) 

PRINT "INPUT MASTER DATA” 

INPUT “MASTER LATITUDE? D,M,S",D,M,S 
Xmit¢4,1)=D+M/604+S5/3600 

INPUT "MASTER LONGITUDE? D,M,S",D,M,S 
Xmit(4,2)=-(D+M/60+S/3600) 

INPUT “MASTER POWER LEVEL? KW" ,Power (4) 

! INPUT SECONDARY DATA 

IF Conf=4 THEN Li$S="TDX" 

IF Conf(>4 THEN Li$="TDW" 

IF (Conf=2) OR (Conf=3) THEN L2$="TDX" 

IF (Conf=i) OR (Conf=4) THEN L2$="TDY" 

IF (Conf=2) OR (Confe3> THEN L3$="TDY" 

IF (Conf=1) OR (Conf=4) THEN L3$="TDZ" 

FOR I=i TO 3 

PRINT PAGE ,LIN(20) 
IF I=% THEN PRINT “INPUT “&L4i64&" DATA" 
IF I=2 THEN PRINT "INPUT “&L2$&" DATA” 
IF 1=3 THEN PRINT “INPUT “&L36&" DATA" 
INPUT "LATITUDE? D,M,S",D,4,S 
Xmit(1, £9=D+M/604+S5/3600 

INPUT "LONGITUDE? D,M,S",D,4,S 
Xnit¢(1,2)=-(D+M/60+S5/3600) 
INPUT “POWER LEVEL? KW" ,Power (I) 

INPUT "EMISSION DELAY?” ,Emis(T) 
NEXT I 

! PRINT DATA TABLE AND CHECK FOR ERRORS 
PRINT PAGE 
PRINT “STATION” ; TABC1S) 3 “LAT” ; TABC 30); "LON"; TABC4S) ; "POWER"; TAB(60) 3 “EMIS 


DELAY" ° 


PRINT LIN(2) 

Ld=INT(Xmit(4,4)) 

LmM=INTCFRACT(Xmit(4, 4) 2860) 

LS=FRACT(FRACT(Xmit (4,4))K60)*60 

PRIN} Ld,im,Ls 

FIXED 4 

PRINT "MASTER"; TABC4S) ;Xmit(4,4) 3 TABC30) ,Xmit(4,2) 5 TABC4S) Power (4) 

PRINT Lis; TABCLS) sXmit(4, 4); TABC3O) ;Xmit (4,2); TABCAS) Power (1) ;TABCO0) 5Em 


PRINT L2%;TABCAS) ;Xmit(2,4) 3 TABC3O) ;Xmit(2,2) ;TABCAS) ;Power (2); TAB( 60) ;Em 
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PRINT L3S;TABCAS) ;Xmit(3, 1); TABCSO) sXmit(3,2) 3 TABC4S) Power (3) 3; TAB(60) ; Eni! 


Iu “IS DATA CORRECT? Y OR N",CS 
IF DATA INCORRECT REENTER 
rF C$="N" THEN 76140 
FILE DATA 
Hecate Chain$,4 
ASSIGN #14 TO Chains 
PRINT #4;Xmit(K) ,Power (x) ,Emis(®) 
GOTO Menu 
! 





6120 
8130 
8140 
8150 
8160 
8170 
8190 
8200 
8220 
8230 
8250 
8260 
8270 
8280 
8290 
8300 
8340 
8320 
8330 
8340 
8350 
| 8360 
8370 
8380 
N,V) 
8390 
| 8400 
8410 


Mi «E=";Fs 


8420 
, 8430 
fi 8440 
8460 
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: 8440 KR: 1 re PROTECT The 


PRINTER IS 16 
MASS STORAGE I8 ":TiS* 
PRINT PAGE 

PRINT * MEASURED-PROJECTED TDs 

! INPUT CHAIN DATA 

IF Ci=4 THEN 8250 

INPUT “CHAIN FILE?" , Chains 

ci=i 

ASSIGN #4 TO Chains 

READ #4;Xmit(%),Power(%) ,Emis(x) 

Conf=VAL (Chain${5,$1) 

Ch$=Chain$1,4] 

! INPUT WAYPOINT FILE DATA 

IF Fiei THEN 8330 

INPUT "WAYPOINT FILE NAME?" ,File$ 

Fizi 

ASSIGN #4 TO Files 

READ #4;Wpt(x) 

! CALCULATE XY COORDINATES OF XMITTERS 

CALL Cart_coord(Xmit(k) ,Wpt(25,7) ,Wpt(25,8) ,ZxmitOK)) 

! INPUT WAYPOINT OF INTEREST 

INPUT "WAYPOINT FROM WHERE DATA IS TO BE PROJECTED?",W 

i CALCULATE REFLECTED TD ARRAYS 

CALL Project (W,WptOk) ,WOK),XOK), YOK), Z08) ,Pos_x(k),Pos_y(K) ,Conf,Zxmit Ox), 


| 
' CALCULATE STATS AND PRINT RESULTS 

PRINTER IS 0 | 
PRINT “RESULTS OF CALCULATING MEASURED TDs-PROJECTED TDs FROM WP"3W;"3; FIL 


FS=FS&" >" 
PRINTER IS 16 


GOTO K2 ! CALCULATE STATS 
! 





BAP KLE: ! ez SE MUL. eT BS 


8480 MASS STORAGE IS “:T415" 4 
8490 PRINTER IS 46 


8500 PRINT 
8510 PRINT 
8520 =! 

8530 IF Ci= 
8550 INPUT 

8560 Ci=i 


8580 ASSIGN #4 TO Chains 
8596 READ #4;Xmit(k) , Power (x) ,Emis(x) 
8610 Conf=VAI(Chain$($,51) 


PAGE 
. SIMULATE WAYPOINT SURVEY " 
INPUT CHAIN DATA 

4 THEN 8640 

“CHAIN FILE?”,Chain$ 





8620 Ch$=Chain$[1,4] 


8630 =! 

8640 IF Fi= 
8650 INPUT 
8660 Fi=i 


8670 ASSIGN 


INPUT WAYPOINT FILE DATA 


*§ THEN 8690 


“WAYPOINT FILE NAME?" ,Files 


#1 TO Files 


8680 READ #4; Wptcx) 


8690 =! 


INPUT WAYPOINT 


8700 PRINTER IS 0 


8710 INPUT 
8720 PRINT 
8730 ! 


“WAYPOINT OF INTEREST?" ,Wp 
"WAYPOINT="; Wp 
CALCULATE ANGLES TO AJOINING WAYPOINTS 


8740 CALL Bear (Wpt(Wp-1,7) ,WptCWp~1,8) ,Wot(Wp,7) ,Wot(Wp,8) ,Cad 


8750 CALL Bear (Wpt(Wp+i,7) ,Wpot(Wp+i, 8) Wot (Wp,7) ,Wpt(Wp,8),Cb) 


8760 FIXED 
8770 PRINT 
8780 =! 

8790 INPUT 
8800 INPUT 
8810 PRINT 
M WP"; Wp 
e820 |! 

8830 INPUT 
8840 INPUT 
8850 FIXED 
8840 PRINT 
8870 ! 

8880 Zp(id= 
8890 2p(2)= 


i 

"COURSE LINE ONE=";Ca;TABC 4S); "COURSE LINE TWO=";Cb 
INPUT START AND STOP POINTS| 

"START POINT RELATIVE TO WAYPOINT(KM)",Ds 

"STOP POINT RELATIVE TO WAYPOINT(KM)",De 

"START POINT="3Ds;" KM FROM WP"3Wp;TARC4S) ; "STOP POINT=";De;”" KM F 


INPUT NOISE LEVEL AND NUMBER OF SAMPLES 

"EXPECTED STANDARD DEVIATION OF TDS(MICROSEC)",Sigma 

“NUMBER OF SAMPLES PER TRACKLINE",N 

3 

"NOISE=";Sigqma;” MICROSEC"; TAR(C4S) ; "SAMPLES="5;N 
CALCULATE AND REDUCE TRACKL.INE ONE DATA 

Wpt(Wp,7) 

Wpt (Wp ,8) 


89700 CALL DataCWcmw) ,XCK), YOK), Z0K),N,Ca,Ds,De,Sigma,Xmit(e),Zp(xk) ,V, Conf) 
8910 CALL Stat _mat (Ww) ,XCK), YOK), Z0K) ,Stat(K) ,Covck) ,O set (>) ,N) 
8920 CALL Reg(Stat(*) ,Cov(x) ,Si(k) ,Rone(*),O set(x)) 


8930 PRINT 


“TRACKLINE ONE: WAYPOINT "“3;Wp-1i;" TO WAYPOINT ";Wp 


8940 CALL Print(Stat(x) ,O_set (x) ,Covtx) ,Rone(k) ,N, 4) 


B9S0 =! 


CALCULATE AND REDUCE TRACKLINE TWO DATA 


8960 CALL DataCWCw) ,XOK), CK), Z¢K),N, CO, Ds, De, Sigma, Xmit(%),Zp CM) ,V, Conf? 
B970 CALL Stat_mat(WOm) ,XCK), YOK), Z0K) ,Stat(K) ,Cov tk) ,0 set(x),N)D 
8980 CALL Reg(Stat(m) ,Cov a) ,S2(K) ,Rtwotk) ,O_set(m@)) 


8990 PRINT 


“TRACKLINE TWO: WAYPOINT “;Wp+i;" TO WAYPOINT "“;Wp 


9000 CALL Print(Stat(®) ,O_set(e®) ,Cov(e) ,Rtwo(m),N,4) 


9010 ! 


CALCULATE WAYPOINT ; 


9020 CALL Way (Si(k) ,S2(K) ,Rone(m) ,Rtwo(k) N,N, Wp (me) ) 








9030 CALL Wprint(Wp(%)) 
(9040 GOTO Menu 

9050 END 

9054 


| 





SUB Reg (Stat(k) ,Cou(k) ,S¢K) , RICK) OF Fset(K)) 
OPTION BASE i 
DEFAULT ON 
$(4,41)=9(1,2)28¢4,3)=Stat(3,1)4+0ffset(i) 
$(1,4)=8(4,5)=Stat(3,2)+0ffset(2) 
$(4,6)=Stat(3,3)+0ffset(3) 
$(2,4)=Statt3,2)+0ffset(2) 
$(2,2)26(2,4)=Stat(3,3)+0ffset(3) 
$(2,3)=8(2,5)=8(2,6)=Stat(3,4)+0ffset (4) 
$(3,1929(3,2)=8(3,3)=Stat(4,4) 
§(3,4)=8(3,5)=Stat(4,2) 
$(3,6)=Stat(4,3) 
$(4,4)=Stat¢4,2) 
§(4,2)=904,4)=Stat(4,3) 
§$(4,3)=6(4,5)=8(4,6)=Stat(4,4) 
FOR i=4 TO 6 
Ind_var:! 
Ive=i 
D=2 
IF $¢4,1))9S¢3,1) THEN Iv=2 
IF S(4,1))9S(3,1) THEN D=i 
R(3,T =1y 
Slope: ! : 
R(4,T)=Cov(3, L)xS(D+2,1)/S(Iv+2,1) 
IF ITv=2 THEN R(4,1I)=4/R (4,1) 
Residual: ! 
C=41-Cov(3,1)%2 
IF C<0 THEN 9350 
R(2,1)=S(D+2,1)%C%.5 
NEXT I 
SUBEND 

' 








9390 SUB Print(Stats(&®) ,G set(m) ,Coul(m) RIK) Sample ,V) 

9400 OPTION BASE 1 

9410 FOR I=4 TO 3 

9420 FOR J=1 TO 6 

9430 IF R¢I,3)>400 THEN R(I,J)=0 

9440 IF Cov(3,J)>100 THEN Cov(3,J)=0 

9450 NEXT J 

9460 NEXT I 

9470 PRINT RPT$("_“,80) 

9480 IF V=2 THEN 9630 

9490 PRINT LINC1);TABC24);" TDW “;TABC36);" TDX ";TAR(S£);" TDY “;TAB(66);" TD 

Z “ 

9500 FIXED 3 

9510 PRINT LIN(4);TABC4); "CUMULATIVE AVERAGE"; TAB(20) ;Stats(3,1)4+0_set(1); TABC 

35) ;Stats(3,2)+0_set(2); TAB(S0) ;Stats(3,3)40_set (3) ; TAKR(45) ;Stats(3,4)+0_set(4) 

9520 PRINT LIN(4);TAB(1); "STANDARD DEVIATION"; TAB(20) ;Stats (4,1); TABC3S) ;Stats 

(4,2); TAB(SO) ;Stats(4,3) 3; TABC6S) ;Stats (4,4) : 

9530 PRINT LIN(4) 5; TABCS) 5 "TD PAIR"; TABCL7) 5 "WX"; TABR(27) 5 "WY"; TARC37) 5 "WZ"; TABC 

47)3"XY“ 3; TABCS7) 3 "XZ" 3 TABCGH7) 3 "YZ" 

9540 PRINT LIN(C1);TABC4); "CORR COEF"; TAB(1S) ;Cov(3,41) 3 TABC2S) 5Cov(3,2) 5; TABC3S) 

3C0v(3,3) 3 TABC4S) 5C0¥(3,4) 3 TARCSS) 5Cov(3,5) 3 TARC6S) 5 Cou 3,6) 

9550 PRINT LIN(4);TAB(C4) 3 "SLOPE"; TABC15) 5 R C44) 5 TABRCAS) 5RO4 2); TABCSS) 5 R64, 375 
TAB(C4S) 5R(1,4) 5 TABCSS) 5R64,5) 5 TABCE6S) 5 RCL, 6) 
| 9560 PRINT LIN(41);TAB(4); “RESIDUAL”; TAB(45) ;R(2,4) 5 TARC25) 5RC2,2) 5 TARC3S) R62, 
3); TABC4S) 5R(2,4) 3; TABCSS) 5R (2,5) 5 TAR( 6S) 5R¢2,6) 

; | 9570 STANDARD 

: 9580 PRINT LIN(4) ;TABC4); "IND VAR"; TAR(47) ;R63,4) 3 TABC2A7) 5R63,2) 5 TARCI7) 5RCS,3 

| >; TABC47) 5R(3,4) 5 TAR(S7) 3R(3,5) 3 TAB( O67) 3R(3,6) 


en ee 


9590 PRINT LIN(4); “SAMPLES=";Sample 
i 9600 PRINT RPT$("_",80) 


ee 


9640 PRINT LIN(4) 
9620 SUREXIT 

Mh 9630 FIXED 3 

iF 9640 PRINT LIN(1);TAB(24)5" Ri ";TAB(36);" R2 ";TAB(S4)3" X  “;TAB(O6)5" Y 

” 
: 9650 PRINT LINC1);TAB(1); "CUMULATIVE AVERAGE"; TAE( 20) ;Stats(3,1)+0_set(4) ; TAR( 
| 3S) ;Stats(3,2)40_set(2) ; TAB(SO) ;Stats(3,3)+0 set(3);TABR(6S) ;Stats(3,4)40_set(4) 

9660 PRINT LIN(4);TAB(4); "STANDARD DEVIATION" ;TAB(20) ;Stats(4,4);TAB(35) Stats 


(4,2); TAB(50) ;Stats(4,3) ; TAB(6S) ;Stats(4,4) 
9670 PRINT RPT$("_",80) 

9680 SUBEND 

9690 =! 


. 0 meee ee. 


, 
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9740 
9720 
9730 
9740 
9750 
9760 
9770 
9780 


SUB Hi_10(X(#),N,Hi,Lo) | 
Hi=xcid 

Lo=X(4) 

FOR I=i TON 
Lo=MIN(X(I),Lo) 
Hi=MAX(X(1), Hi?) 

NEXT I 

SUBEND 
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|. 790 SUB Plot(Lx,Hx, Ly, Hy, Xx,¥x,XCK) ,YCR) ,S4,N,X$, YS, FS) 
| 9800 OPTION BASE i 
9810 PLOTTER IS 13, "GRAPHICS" 
9820 GRAPHICS 
9830 LOCATE 410,90,20,100 
9840 SHOW Lx-4,Hx+1,Ly-4,Hy+4 
9850 AXES 1,4,Xx,Yx 
9860 LINE TYPE 2 
9870 FOR I=4 TO N 
9880 DRAW X(I3,YC(I) 
9890 NEXT I 
9900 LINE TYPE 4 
9940 MOVE Lx, S4ik(Lx-Xx)+Yx 
9920 DRAW Hx,S4k(Hx-Xx)+Yx 
9930 Label:CSIZE 3 
9940 LORG S 
9950 LOCATE 0,125,0,20 
9960 SCALE 0,100,0,20 
9970 MOVE 50,45 
9980 LABEL USING "#,K";X$;" VS ";Y$;" & REGRESSION LINE" 
9990 MOVE 50,10 
10000 LABEL USING "K";"ONE MICROSEC/DIV" 
400410 MOVE 50,5 
40020 LAREL USING “K"; “FILE="AaF$ 
| 40030 PAUSE 
| 40040 INPUT "HARD COPY? Y OR N",Hc$ 
40050 IF Hce$<>"Y" THEN 10070 
40060 DUMP GRAPHICS 
40070 EXIT GRAPHICS 
40080 SUBEND 
40100 ! 
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10140 
10120 
10430 
10140 
104150 
10160 
10470 
10180 
10190 
10200 
102140 
10220 
10230 
10240 
102590 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
19560 
10570 
10580 
10590 
410600 
10610 
10620 
10630 
10640 
10650 


SUB Rplot(Tu(e) ,DCK), SCH), ROK) PrN, Vis, V2$,FS$) 
OPTION BASE 1 

Pi=4 , 

PRINTER IS 0 

INPUT "PLOT RESIDUALS VS N(4) OR INDEPENDENT VAR(2)",P4 
PLOTTER IS 413, “GRAPHICS” 
GRAPHICS 

LOCATE 410,100,20,80 

IF Pi=4 THEN 10240 

CALL Hi_lo(Iu(k),N,Imax,Imin) 
SCALE Imin-2,Imax,-S5,5 

AXES 4,14,Imin,0 

GOTO 10260 

SCALE 0,N,-S,5 

AXES 10,41,0,0 

LINE TYPE 2 

R$=VALS(R(2,Pr)) 

M=R(4,Pr) 

IF R(3,Pr)=2 THEN M=41/M 

Tv=i4 

D=2 

IF R¢(3,Pr)=2 THEN Iv=2 

IF R(3,Pr)=2 THEN D=4 
Da=S(D,Pr) 

Ta=S(Ivy,Pr) 

FOR T=i TON 

Np=Dat+mMk(Iv¢(1I)-Ia) 

Dr=Dp-D¢T) 

Nr=Dr/R(2,Pr) 

IF Nr>S THEN PRINT I,Nr 

IF Pi=4 THEN 10440 

DRAW Iv(I),Nr 

GOTO 10450 
DRAW I,Nr 
NEXT I 
PRINTER IS 416 
LINE TYPE 4 

IF Pi=i THEN 106140 

Ra=Imax-Imin 

MOVE Imin+Ra/8,-4 
LABEL USING "K"; "NORMALIZED RESIDUALS VS INDEP VAR" 
MOVE Imin+Ra/8,-S 
LAREL USING "K"3;V¥4$;" AND "3;V2$5" DATA"; "3 RES="3R$;" MICROSEC" 
MOVE ImintRa/B 6 
LABEL USING "K";"TRACKLINE="5F$ 
MOVE Imin+Ra/8,4 
LAREL USING "K";Imin 
MOVE Imint+Ra/8,5 
LABEL USING "K";"IND VAR MIN" 
GOTO 10670 


MOVE. N/8,-4 

LABEL USING "K";“NORMALIZED RESIDUALS VS SAMPLE NUMBER" 

MOVE. N/8,-S 

LABEL USING °K";V1$;" AND "3;¥2$3;" DATA";"3; RES=";R$;" MICROSEC" 


MOVE N/8,-6 
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40660 
10670 
10680 
10690 
10700 
10710 
14720 
10730 
£0740 
10750 
10760 
10770 
10780 
10790 
10800 
19810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
109140 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
411040 
11020 
11030 
11050 





LABEL USING “K"; "TRACKLINE=" ;F¢ 
INTEGER K 

IF Pi=i THEN 410740 

K=Imax-~Imin 

GOTO 10750 

K=N/10 

IF (N)400) AND (P4=4) THEN K=N/S50 
Step=4 

IF (P4=2) AND (K>10) THEN Step=2 
FOR I=i TO K 

Mx=Iminel 

IF Pi=4 THEN Mx=40x%I 

IF (N)100) AND (P4=4) THEN Mx=S0x%I 
MOVE Mx,-4 

IF Pi=i THEN L=Mx 

IF Pi=2 THEN L=I 

LABEL USING "K"5L 

NEXT I 

IF Pi=2 THEN 10930 

FOR I=4 TO S 

M=N 

MOVE -M/1i6,1I 

LAREL USING "K"3I 

MOVE -M/416,-I 

LAREL USING "K"3-1 

NEXT I 

GOTO 10990 

FOR I=4 TO S 

MOVE Imin-i,I 

LABEL USING "K";TI 

MOVE Imin-i,-I 

LABEL USING "K"3-1 

NEXT I 

PAUSE 

INPUT "HARD COPY? Y OR N",Hes 
IF Hc$="Y" THEN DUMP GRAPHICS 
EXIT GRAPHICS 


SUBEND 
’ 





411090 
44400 
11410 
141420 
41430 
11449 
114150 
1414640 
11470 
11180 
11210 





SUB Bear (Pi ,P2,P3,P4,B) 
{ PROGRAM TO CALCULATE BEARING BETWEEN TWO POINTS 

; (P41 ,P2) AND (P3,P4).POSITIONS ARE INPUT IN DEGREES 
| GF LAT/LON . N AND E @RE +; S AND W ARE — 

DEFAULT ON 

DEG 

PS=COS(P3) 

PG6=P4-P2 

P7=SIN(P3)KCOS(P4)-PSHSIN(P4)&COS(PS) 
BR=ATN(PSKSIN(P6)/P7) 

IF P7<0 THEN B=B+4180 

IF B(O THEN B=B+360 


SUBEND 
! 
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11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
411340 
11320 
11330 
11340 
11350 
44360 
11370 
11400 


SUB Range(P4,P2,P3,P4,R) 
1 PROGRAM TO CALCULATE RANGE IN KILOMETERS BETWEEN TWO 
1 POINTS (P4,P2) AND (P3,P4). POSITIONS ARE IN DEGREES 
! (LAT,LON) . NORTH AND EAST ARE +. 

DEG 

Po=SIN(P4) 

P7=SIN(P3) 

P8=P6xP7+COS(P4)*COS(P3)#COS(P4-P2) 

RAD 

P9=(4-PB*2)*.5 

PS=ATN(P9/PB) 

P40=(PO+P7)*2%(3KP9-PS)/(1+P8) 
P44=(P6-P7)*2K(3KP94PS)/(4-PB8) 

DEG 

R=6378.13SHPS+S,.3461254"(P40-P14) 


SUBREND 
! 








41440 SUB Xy(Xp,Yp,R,B,X,Y) 
41420 |! PROGRAM CALCULATES XY COORDINATES OF POINT(Xp,Yp) 
44430 |! FROM RANGE AND BEARING FROM REFERENCE POINT(X,Y) 
41440 DEG 

14450 Xp=X+RKSIN(B) 

44460 Yp=Y+R*COS(B) 

441470 SUBEND 

41500 ! 


ana eee 





44540 SUB G_mat(P(k),V,Range(®) ,Bear(®) ,Zp(%) , ACK) ,G1235(H) ,Gi2(K) ,G25CK) ,613¢e)) 
44520 ! PROGRAM CALCULATES: ; 
41530 ! ACK) ;GRADIENT MATRIX(XY TO TD) ; 
41540 ! Gi23¢K);GRADIENT MATRIX (TD TO XY),3-TD CASE i 
1isso ! Gi2(k) ,G23(e) ,G43(K) ;GRADIENT MATRICES(TD TO XY),2-TD CASES 
11560 ! INPUTS ARE: 

41570 ! P(k);PQWER LEVEL OF XMITTERS (KILOWATTS) 

41580 ! V; VELOCITY OF PROPOGATION (MICROSEC/KILOMETER ) 
11590 ! Range (*) ;RANGES FROM POINT TO XMITTERS (KILOMETERS) 
41600 ! Bear (x) ; AZIMUTH OF XMITTERS FROM POINT (DEGREES) 
11610 ! Zp tk); XY POSITION OF POINT 

41620 DEG 


44630 OPTION BASE 4 
44640 DIM R(3,3),W(3,3),B(2,3) ,C(2,2) ,D(2,3) i 
44650 MAT R=(4) | 
44660 K=P(4)/Range(4)*2 
44670 FOR I=4 TO 3 
44680 ! CALCULATE A MATRIX 
44690 AC1,4)=(SIN(Bear (4) )-SIN(Bear(I)))/V 
44700 ACI,2)=(COS(Bear(4))-COS(Bear(1)))/V 
41740 ! CALCULATE COVARIANCE MATRIX 
, 44720 R(T, 1)=44+K*Range(1)*2/P (1) ! 
| 44730 NEXT I i 
| 44740 ! CALCULATE WEIGHTING MATRIX | 
fo 44750 MAT W=INV(R) 
44760 ! CALCULATE G123 
44770 MAT B=TRNCA) 
| 44780 MAT D=BxW 


i 44790 MAT C=DxA 
A |. 44800 MAT C=INV(C) 
11810 MAT Gi23=CxD 
A 11820 | CALCULATE Gi2,G23,G43 


if 44830 FOR I=4 TO 2 
414840 FOR J=i1 TO 2 
44850 K=I+4 
41860 L=J+4 
i 44870 M=I 
44880 N=J 
a 44890 IF I=2 THEN M=3 
41900 IF J=2 THEN N=3 
41940 Gi2(1,J)=AC1,I) 
44920 G23(1,J)=ACK,IJ) 
14930 Gi3(1,J>=ACM, J) 
41940 NEXT J 
44950 NEXT I 
14960 MAT Gi2=INV(G12) 
41970 MAT G23=INV(G23) 
41980 MAT Gi3=INV(G13) 
41990 SUBEND 
42020 |! 
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12030 
12040 
12050 
12060 
12070 
12080 
12090 
12110 
12130 
12440 
12150 
12160 
12170 
12180 
12590 
124914 


SUB Td( ROK) ,V,Ed(R), TO) 

. PROGRAM PREDICTS TDS FOR A POINT. INPUTS ARE RANGES 
1 TO THE XMITTERS(R(#)), EMISSION DELAYS(Ed(&)),AND 

1 VELOCITY OF PROPOGATION 

‘ 


! CALCULATE SECONDARY PHASE FACTORS (SF) 
FOR I=i TO 4 

S(I)=38. 448A/R(1)-. 40758+ .002166735aR(1) 
IF R(I)<¢160 THEN S(I)=.616768/R(1)—. 011402+. 0014 #RCT) 
NEXT I 

! CALCULATE TDS 

FOR I=4 TO 3 
TCTO=C(RCIO-R C4) /V48(19-SC4) +E (I) 

NEXT I 

SUBEND 

' 
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12200 
12240 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12300 
123140 
12314 
12342 
12313 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12484 
12482 
12483 
12490 
12500 
12510 
12520 
12524 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12624 
12622 
12623 
12624 
1262S 
12626 
12627 
12628 





SUB Wpfile(W(m) ,Fi,Files) 
{ PROGRAM TO STORE WAYPOINT INFO 
OPTION BASE 4 
PRINTER IS 0 
IF Fi=4 THEN Opt 
INPUT “WAYPOINT FILE NAME?",Files 
Fi=4 
INPUT "DOES THIS FILE CURRENTLY EXIST ON TAPE? Y OR N",Crs 
IF UPCS$(Cr$[1,4])="N" THEN CREATE File$,8 
Cont: ASSIGN #4 TO Files 
IF UPC$(Cr$l41,4])="Y" THEN READ #4;WC%) 
Opt: INPUT “MODIFY/CREATE 4; LIST 2; SAVE 3; QUIT 4*°,Opt 
IF (Opt<4) OR <Opt>4) THEN Opt | 
ON Opt GOTO Input,List,File,End 
Input: INPUT “WAYPOINT NUMBER?",Nw 
PRINT “WAYPOINT NUMBER="3Nw 
INPUT “INPUT OR CHANGE TDs? Y OR N"“,Td$ 
IF UPC$(Td$)<>"Y" THEN Xy 
INPUT "“TDW,TDX,TDY,TDZ 2",WCNW,4),WCNW,2) ,WONW, 3) ,WONW, 4) 
FIXED 2 
PRINT "TDW=";W(NW,4),"TDX="j;W(NW, 2), "TDY="3WCNW, 3), "TDZ="5WCNW, 4) 
Xy: INPUT "INPUT OR CHANGE XY POSITION? Y OR N",PS 
IF UPC$(P$)<¢>"Y" THEN Li . 
FIXED 3 
INPUT "XY POSITION? E,N",WCNw,S),WOCNW,6) 
PRINT "X=";W(Nw,S), "Y="; WCNW, 6) 
L1: INPUT “INPUT OR CHANGE LAT/LON? Y OR N",L1$ 
IF UPC$(L4$)¢>"Y" THEN Next | 
FIXED 4 
INPUT “ENTER LATITUDE; D,M,S",Deg,Min,Sec 
WCNw, 7) =Deg+Min/604+Sec/240b 
INPUT “ENTER LONGITUDE; D,M,S",Deq,Min,Sec 
WCNw, 8)=-(Deg+Min/60+Sec/3600) 
PRINT "LAT=";WCNW,7), "LON="s;WCNW, 83 
Next: INPUT "ANOTHER WAYPOINT? Y OR N",AS 


IF AS="Y" THEN Input 

GOTO Opt 

List: PRINT LIN(S);TAK(2S) ;"WAYPOINT FIle: “;Files 

FOR I=4 TO 25 

FIXED 0 

PRINT 

PRINT "“WAYPOINT="31 

FIXED 2 

PRINT “TDW="; WGI ,4)>,"TDX=";WC1, 2), "TDY="3;WC1,3),"TDZ="s;WC1, 4) 


FIXED 3 
PRINT “"X=";W(1,5),"Y="s;WCI,6) 

FIXED 0 

Lat=w(I,7) 

DNeg=INT(Lat) 

Mini=60%(Lat-Deg) 

Min=INTCMin4d) 

Sec=60%(Mini-Min) 

PRINT “LAT: ";Deg;CHRS$(179) ;Min; "9 "3 
FIXED 2 

PRINT Sec;"?? my 

































































oar 12629 FIXED 0 
t 12630 Lon=-w(1,8) 

12634 Deg=INT(Len) 
| 12632 Mini~60x(Lon-Deg) 
12633 Min=INT (Mini) 
12634 Sec=60k(Mini-Min) 
12635 PRINT “LON: ";Deg;CHR$(479) ;Min; "2%; 
12624 FIXED 2 
12637 PRINT Sec;"??* 
12640 NEXT I 
12644 PRINT LINCS) 
12642 GOTO Opt 
12650 File:ASSIGN #4 TO Files 
42680 PRINT #4;W(%) 
12690 End: SUBEND 
42740 ! 
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412720 SUB Fehg(X(%) ,Zp(k), Tp (k) , Tq (®) ,GCK) ,Zq(%) ,V,Neta) 
' 42730 ! THIS SUBROUTINE CALCULATES POSITION COORDINATES,2q(2,1), 
42740 ! USING THE FLAT EARTH HYPERBOLIC GRID (FEGH) ALGROTHIM. 
- 42750 ! INPUTS ARE TRANSMITTER POSITIONS,X(2,3) ,WAYPOINT POSITION, 
42760 ! Zp(2,4); WAYPOINT TDs, Tp(2,4); THE GRADIENT MATRIX, G(2,2) GR GC2,3); 
42770 ! THE VELOCITY OF PROPOGATION, V; AND THE MEASURED TDs, Tq(2,14). 
42780 OPTION BASE 4 
42790 DIM AC(Nsta,i),B(Nsta,i), C(Nsta,1),DINsta,4) ,E(2,1),T(NSta,1),Z¢62,1) ,RCNsta 
+4,14) 
12800 Initialize: ! 
12810 K=0 
12820 MAT Zq=Zp 
12830 MAT H=Zp 
12840 MAT A=Zp 
42850 MAT C=Tq 
12860 MAT D=Tp 
42870 ! CALCULATE Zq(i)=Zp+G(Tq-Tp?) 
42880 MAT T=C-D 
42890 MAT Zq=GA4T 
12900 MAT Zq=Zp+Zq 
42940 ! CALULATE h(Zq(0))=h(Zp) 
12920 FOR I=41 TO Nstati 
12930 RCT, 4) =SQR¢(Zp(4 ,49-X(1,4)9%2462Zp62,1)-X1,2))9%2) 
42940 NEXT I 
42950 FOR I=4 TO Nsta 
12960 DCT, 4 = (RII, 19 -RINStatd, 4) /V 
42970 NEXT I 
42980 ! CALCULATE Zq(n)=2Zq (n-4)-Zq(n-2)4+G(h(Zq (n-2)-h(Zq(n-4))) 
12990 Iterate :K=K+i 


13000 DISP K 
13040 ! IF ITERATIONS EXCEED 20 THEN STOP 


43020 IF K220 THEN Error 

13030 MAT B=A ! Zq(n-2)=Zq(n-1) 

13040 MAT A=Zq! Zq(n-1)=Zq(n) 

13050 MAT C=D ! h(Zq(n-2))=h(Zq(n-1)) 

413060 ! CALCULATE h(Zq(n-4i)) 

13070 FOR I=1 TO Nstati 

13080 RC1T,1)=SQR(6Zq(4,4)-X(1,19)9*%2+(Z902,149-X(1,2))%2) 
43090 NEXT I 

13400 FOR I=i TO Nsta 

13440 DCT, 1) =CRCI,1)-RONStatd , £9974 

43420 NEXT I 

134130 MAT Zq=Zq*(2) 

4134140 MAT Zq=Zq-B 

13150 MAT T=C-D 

13460 MAT Z=GX%T 

13470 MAT Zq=Zq+Z 

13180 ! CALCULATE ABS(Zq(n)-Zq(n-41)) 

13190 MAT ExA-Zq 

13200 Diff =F¢4,1)*24E(2,4)%2 

13210 ! IF DIFFERENCE >4 METER, THEN ITERATE 
13220 IF SQR(DiIfFFf)>.0010 THEN Iterate 

13230 DISP K 

43240 GOTO End 

13250 Error:DISP "20 ITERATIONS WITHOUT CLOSURE 








13260 PAUSE 
13270 End: SUBEND 
13299 ! 
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43300 SUB Xplot(T,Ax(®),Ay(%) , Minx ,Maxx,Miny,Maxy,N,No,FS,Ch$,L$,P1) 
43340 DIM L1$(803,L4$1801,L2$(1801,L3$(803 

13320 FIXED 3 

43330 Zoon$="" 

43331 Plotter=1 

43340 IF No=2 THEN 13430 

43344 INPUT “PLOT DATA ON CRT4 OR 9872A27? 4 OR 2", Plotter 

432.2 PLOTTER IS 6,5,"9872A" 

43350 IF Plotter=4 THEN PLOTTER IS 13, “GRAPHICS” 

43354 IF P1<>S THEN 1413370 

43352 INPUT "CHART SCALE 4:10,0004, 4:20,0002, 41:40,0004, OR 1:80,00087 
1,2,4,0R8",Scale 

43353 IF (Scale(>4) AND (Scale(>2) AND (Scale<(>4) AND (Scale<(>8) THEN 13352 
13354 Mult=4100/Scale 

13356 Xo=MinxxMult 

43357 Yo=MinyxMult 

413358 X=MaxxXMult 

13359 Y=MaxyxMult 

43360 ! GRAPHICS 

43364 IF Pi=S THEN MSCALE X,Y 

43370 IF P1¢>S THEN LOCATE 0,100,20,100 

43374 GRAPHICS 

43380 IF P1<¢>S THEN FRAME 

43390 IF (P14>5) AND (Zoom$(>"Y¥") THEN SHOW Minx-.1,Maxxt. 1 Miny-.1,Maxyt.t 
43400 IF (P1¢4>5) AND (Zoom$="Y") THEN SHOW Minx, Maxx ,Miny, Maxy 
43440 IF P1¢(>S THEN AXES .4,.4,Minx,Miny,10,10 

43444 IF P1=S THEN AXES .4aMult,.4eMu1t,0,0,10,10 

43420 ! GRID 2,2,Minx,Miny,1,14 

13430 LINE TYPE T 

43440 IF P1<¢>S THEN MOVE Ax (4) ,Ay(4) 

43444 IF P1=S THEN MOVE Ax(1)kMu1t—-Xo,Ay(4)kMU1t-Yo 

13450 FOR I=i TO N 

13460 IF P14>S THEN DRAW Ax (1) ,Ay(1) 

13464 IF P1l=S THEN DRAW Ax(I)&MuLt—-Xo ,Ay(I)xMult—Yo 

413470 NEXT I 

134714 IF (P1=S) AND (Plotter=1) THEN PAUSE 

43472 IF (P1=S) AND (Plotter=1) THEN 14080 

13473 IF (P1=S) AND (Plotter=2) THEN 14100 

13480 PRINTER IS 6 

13490 P=0 

13500 IF (P1l=3) AND (No=4) THEN SUBEXIT 

13540 IF (P1=3) AND (No=2) THEN Label 

13520 PAUSE 

13530 INPUT "ZO0M?7,Y OR N",Zooms 

413540 IF Zoom$¢)>"Y¥" THEN 13580 

13550 DIGITIZE Minx,Miny 

13560 DIGITIZE Maxx ,Maxy 

13570 GOTO 13350 

13580 INPUT "FIND SAMPLE NUMBER AND VALUE OF PLOTTED DATA POINT? Y GR N",Outs 

13590 IF Qut$¢>"Y" THEN 13690 

136060 DIGITIZE X,Y 

13610 Tol=.4 

13620 IF ABS(Maxx-Minx)<=4 THEN Tol=.010 

13630 FOR I=i TON 

43640 IF (ABSCAxCI)-X)¢Tol) AND CABSC(CAy(IT)-Y¥)¢(Tol) THEN P=4 


ee 
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13650 
13660 
13670 
13680 
13690 
13700 
43740 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
13830 
13840 
13850 
13860 
13870 
139880 
13890 
13900 
13910 
13920 
13930 
13940 
13950 
13960 
139790 
13980 
13990 
14000 
14010 
14020 
14030 
£4040 
14050 
14060 
14070 
14080 
14090 
14160 
14140 
14130 


IF P THEN PRINT I,Ax(I) ,AyC(T) 
P=0 

NEXT I 

GOTO 13580 

INPUT “DIGITIZE?",D® 

IF D$<)"Y" THEN Label 

INPUT “HOW MANY?¢=40",P 

IF P)40 THEN P=40 

GRAPHICS 

FOR I=4 TO P 

DIGITIZE Xx(1),Yy(1) 

LORG S 

MOVE Xx(I),Yy(T) 

LABEL USING "K"; "4" 

MOVE Xx(1),Yy (1) 

LORG 2 

LABEL USING "3D";1 

NEXT I 

FOR I=4 TO P 

PRINT I,Xx(1),Yy(1) 

NEXT I 

Label:IF (P1=3) AND (No=i) THEN SUBEXIT 
LOCATE 0,4100,0,45 

SCALE 0,400,0,25 

LAS="AXES: X="AVALS(Minx)&" Y="SVAL$(Miny) 
L2$="UNITS: 4 KM/DIV" 

L3¢="FILES"AF$ 

IF Pl=4 THEN Mini 

IF Pl=3 THEN Mini_lc 

L4$="LORAN-C DATA: "&" CHAIN="ACh$&", LOPS="4L$ 
GOTO 13990 

Mini:L4$="MINI-RANGER DATA" 

GOTG 13996 

Mini_lce: L4$="MINI-RANGER (SOLID LINE) AND LORAN-C (DASHED LINE)" 
MOVE 10,20 

LAREL Lis 

MOVE. 10,45 

LABEL L2$ 

MOVE 410,40 

LAREL L3$ 

MOVE 40,5 

LABEL L4$ 

PAUSE 

Hrd_cop: INPUT "HARD COPY OF GRAPHICS?" ,HS 
IF H$="Y" THEN DUMP GRAPHICS 

EXIT GRAPHICS 

SUBEND 

1 
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14140 
14450 
14160 
44170 
14180 
14190 
14290 
14240 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
414290 
14300 
14310 
14320 
14330 
14340 
44350 
14360 
14370 
14380 
44400 


ae nen ee ten 





SUB Ct_at(X me) , YC) ,CLOK) ,ATCH) Wx ,Wyd ,Wx2,Wy2,N,R,A) 
DEFAULT ON 

OPTION BASE i 

DEG 

MAT Ct=(0) 

MAT At=(9) 

} CALCULATE COURSE ANGLE FROM Wi TO W2 
Dy=Wy2-Wyi 

Dx=Wx2-Wxi 

R=SQR (Dx *2+Dy*2) 

A=ATN(Dx/Dy) 

IF Dy<Q THEN A=A+180 

IF ACO THEN A=A+360 

1 CALCULATE ALONG TRACK AND CROSS “TRACK DISTANCE 
FOR I=i1 TO N 

X=XCT)-Wxi 

Y=YC(I)-Wyi 

At CI) =XKSINCA)+YXCOS (A) 


Cr(1)=-XxCOS (CAD +YKSINCA)D 

NEXT I 

{ FILTER Ct 
FOR I=2 TO N 
CrCLy=CrCi-49K. 7401 (I)K.S 
NEXT I 

SUBEND 
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14440 
14420 
14430 
14440 
£4450 
14460 
14470 
14480 
44490 
14500 
14540 
44520 
44530 
14540 
44550 
44560 
44570 
44580 
14590 
44600 
14640 
£4620 
14630 
44640 
14650 
14660 
44670 
14680 
14690 
14700 
44740 
14720 
44730 
44740 
14750 
14760 
44770 
44780 
14790 
14800 
44840 
14820 
44830 
44840 
14850 
14860 
44870 
44880 
44890 
44900 
44940 
14920 
44930 
44940 
14950 
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SUB Patct(At(&),Ct(x) ,N,Mina,Maxa,Minc ,Maxc ,Wt ,Wf,F%,R,No,Data) 
DIM 11$(69) ,L2$£603 ,1.3$1801 ,L48£860) 
IF No=2 THEN 14540 

PLOTTER I8 13, “GRAPHICS” 

GRAPHICS 

LOCATE 10,100,20,100 
Mina=MIN(O,Mina) 

Maxa=MAX(R, Maxa) ' 

! CALL Hi_lo(Ct(x),N,Bc,be) 
Ec=MAX(Maxc, .22) 

Lco=MIN(Minc ,-.22) 

SCALE Mina,Maxa,Lec,Bc 

AXES .4,.04,0,0,40,190 

MOVE At(4),Ct¢4) 

LINE TYPE 4 

TF (Data=3) AND (No=2) THEN LINE TYPE 2 
FOR I=4 TON 

DRAW At(I) ,Ct(T) 

NEXT I 

MOVE R,0 

LORG S 

LAREL USING "K";"I" 

LINE TYPE 4 ‘ 
IF (Data=3) AND (No=i) THEN SUREXIT 
Label:! 

Y_axis:! 

Y=.2 

IF Maxa>S THEN Y=.5 

MOVE Y,.4 

LABEL USING "K"54100 

MOVE Y,.2 

LAREL USING "K";200 

MOVE Y,~-.4 

LABEL USING "K"3-400 

MOVE Y,-.2 

LABEL USING "K"3-200 

MOVE Y,~.245 

LABEL USING "K"; "METERS" 

X_axis:! 

INTEGER K 

K=Maxa 

FOR I=4 TO K 

MOVE I,-.0145 

LABEL USING "K";1 

NEXT I 

MOVE K-4,-.035 

LABEL USING "K"; "KILOMETERS" 

LOCATE 40,100,0,20 

SCALE 0,100,0,25S 

FIXED 0 

Lit="ALONG TRACK VS CROSS TRACK " 
L2$="WAYPOINT "“AVALSCWFIS" TO "A"WAYPOINT "AVAL SCWt) 
L3$="FILE="4F$ 

IF Data=i THEN L4$="MINIRANGER DATA" 
IF Data=2 THEN L4$="LORAN-C DATA” 





44960 IF Data=3 THEN L4$="LORAN-C DATA(DOTTED LINE) AND MINIRANGER DATACSOLID Lr 
NE)" | 
44970 MOVE 0,22 

14980 LABEL "WP "&VALSCWt) 
14990 MOVE 100,22 

15000 LABEL "WP"&VALS(WF) 
45040 MOVE SS,20 < 
45020 LABEL Lis . 
15030 MOVE SS,4S 
15040 LABEL L2$ 

15050 MOVE SS,40 

45060 LABEL L3$ 

45070 MOVE SS,S 

45080 LABEL L4$ 

45090 PAUSE 

45400 INPUT “HARD COPY? Y OR N",Hc$ 

45440 IF He$="Y" THEN DUMP GRAPHICS 

45420 EXIT GRAPHICS 

15430 SUBEND 

45450 ! 











SUB Delete (Wé 
OPTION BASE 4 


HD, XCH) YOK), ZCK) RACK) RACH), TECK) NFS) 


DIM We(400) ,Xe(400) , Ye( 400), Ze (400) , Te$( 400) ,Rie(400) ,R2e (400) 


PRINTER IS 0 
Sample: INPUT 
J=0 

FOR I=i TON 
Samp1:IF I=D 
JeJ+i 

DISP I,J 

We (J =WCT) 
Xe(Jo=xX¢cI) 
Ye( J =YCI) 
Ze(Jo=2Z¢T) 
Rie(JO=HRiCI) 
R2e(Jo=R2(1) 
Tes(J=TS$(T) 
Next: NEXT I 
N=J 

MAT W=We 

MAT X=Xe 

MAT Y=Ye 

MAT Z=Ze 

MAT Ri=Rie 
MAT R2=R2e 
FOR I=i TON 
T$(1I)=Tes(I) 
NEXT I 


"SAMPLE TO BE DELETED?START WITH HIGHEST NUMBER ",D 


THEN Next 


PRINT “SAMPLE";D;"DELETED,"3;N;"SAMPLES REMAIN" 
INPUT “ANOTHER SAMPLE TO DELETE?" ,A$ 


IF AS="Y" THE 
End: SUREND 
1 


N Sample 





45570 
45580 
4S590 
15600 
45640 
15620 
45630 
45640 
45650 
45660 
45670 
45680 
15690 
45700 
45740 
15720 
45730 
45740 
45750 
45760 
45770 
45780 
45790 
45800 
| 45840 
45820 
15830 
| 45840 
| 45850 
15860 
45870 
45880 
45890 
45940 


ee ee 


SUB Read(WCk) ,XCK), VCR) ,Z0K) RACK) RACK), Times (ek) Sample ,FS) 
OPTION BASE 4 va 
DIM AC100) ,B(400),C(100) ,D¢ 100) ,T$(100) ,£6400) ,F (100) 
MASS STORAGE IS ":T14" . 
Sample=0 ! ZERO SAMPLE NUMBER AND DATA ARRAYS 
MAT W=(0) “a 
MAT X=(0) a 
MAT Y=(0) 
MAT Z=(0) 
MAT R4=(0) 
MAT R2=(0) 
FOR I=4 TO 400 
Times(I)="" 
NEXT I 
INPUT “ FILE NAME? “,F$ | INPUT FILE NAME 
ASSIGN #4 TO FS 
READ #1;Set,Sample ! READ NUMBER OF DATA SETS AND SAMPLES 
FOR J=0 TO 3 1 READ DATA SET BY SET AND LOAD INTO 
ON END #4 GOTO 45770 1 DATA ARRAYS 
READ #14;A(K), BOK) ,COK) DOK) ,ECK) FOR), TS OK) 
FOR I=4 TO 400 
W(I+Ik100)=A(I) 
X(1+JK100)=B(1) 
YCI+I#4002=C(1) 
Z(1+744100)=D(1) 
Ri CI+IK400)=E(1) 
R2¢1+IK100)=F (1) 
Time$(1+Jk100)=T$(1) 
IF I+J%4100=Sample THEN SUREXIT 
NEXT I | 3 
IF J+i=Set THEN SUBEXIT 
NEXT J 
SUBEND 
! 





ene 


rene cae 
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45920 
15930 
15940 
15950 
15960 
15970 
15980 
1S990 
16000 
16010 
16020 
16030 
16040 
46050 
16060 
16070 
16080 
16090 
16100 
16410 
16120 
16130 
161440 
16150 
| 16160 
16170 
16180 
16190 
| 16200 
16210 
46220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 
16420 
16430 
16440 
16450 


SUB Link( WOK) ,XOK), YOK), Z0K) RICH) RACK), Times(%) ,Count,L$) 
OPTION BASE i 
DIM AC100) ,B(100),C(100) DC 100) , T$(100) ,£¢100) ,F 6400) 


MASS STORAGE IS ":T14" 
Count=0 
Read=4 
INPUT “DATA FILE TYPE? TD&RANGES OR TD ONLY2" ,Read i 


IF (Read<>i) AND (Read<(>2) THEN 15980 

INPUT “ FIRST FILE NAME? “",FS i 

L$="" 

Assign:ASSIGN #1 TO FS ’ } 
READ #41;Set,N 

FOR J=0 TO 3 

ON END #4 GOTO 416100 

ON Reod GOTO Std,Alt 

Std:READ #45;ACK) ,BCK) , CCK) ,DCK) ECR) ,F CK) , TECK) 

GOTO 46100 

A1LtSREAD #45;ACK) , BOK), CCK) DICK), TSCK) 

FOR I=4 TO 100 

Kount=Count+1+7%*100 

DISP Kount 

WiKount) sACT) 

X(Kount)=BCT) 

Y¥(Kount)=C(I) 

Z(Kount) =D¢(I) 

Ri CKount)=EC(T) 

R2(Kount =F (I) 

Times (Kount)=T$¢(T) 

IF J+J3kKi00=N THEN Status=4 

IF Status=i THEN Jump 

IF Kount=400 THEN Jump 

NEXT I 

IF Set=J+i THEN Jump 

NEXT J 

Jump: ! 

PRINTER IS 16 

PRINT PAGE;LIN(20); "CURRENT FILE=";F$ 

INPUT "CORRECT TD DATA? Y OR N",CS 

IF C#<4>"Y" THEN 16460 

PRINT "START TIME=";Time$(Count+i) ; TAR(30);"STOP TIME=";Time$(Kount) 

INPUT " CORRECTION TO TDWCMICROSEC)?",We 

INPUT " CORRECTION TO TDX(MICROSEC)?",Xe 

INPUT “ CORRECTION TO TDY(MICROSEC)?7",Yc 

INPUT “ CORRECTION TO TDZ(MICROSEC)?”,Zc 

FOR I=Count+i TO Kount 

WET) =WC 1) +We 

X(T) =XC1T)4Xe 

Y¥CD)=V¥(C1T)+¥e 

Z(1)=2Z¢(1)+Ze 

NEXT I 

FS=FSA"4? 

PRINTER IS 0 

PRINT “FILE=";F$ 

PRINT “TD CORRECTIONS: "; TAB(20) ; "Wceor="3We ; TABC3S) 3 "Xcor="3Xc }TAR(SO) ; "Ye 


r=";¥c;TABC6S) 5 "Zcor="32Zc 


A-94 
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Count=Kount 

PRINTER IS 16 

Status=0 

Comma$=CHR$( 44) 

IF LEN(L$)(4 THEN Commag$="" 
L$=L$&4Comma$aFS 

PRINT PAGE;LIN(20) 

PRINT “FILES LINKED=";L% 
PRINT "TOTAL SAMPLES=";Count 
IF Count=400 THEN 16640 
INPUT * ANOTHER FILE? ",AS$ 
IF AS="N" THEN End 
INPUT * FILE NAME? ",FS 
' L&=L$&CHRS$( 44) &F$ 
GOTO Assign 
End:PRINT "FILES LINKED="3L6 
PRINT “TOTAL SAMPLES=";Count 
PRINT 
INPUT “ STORE DATA SET? "“,S$ 
IF S$="Y" THEN Store 
SUBEXIT 
Store:CALL Store(WOk) ,XCK), YOK), ZK) RACK) RACK), Times (KX) ,Count, FS) 
SUBEND ‘ 
ty 





16690 
16700 
416710 
16720 
16730 
16740 
16750 
16760 
16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16850 
16860 
16870 
16880 
16890 
16900 
416910 
16920 
16930 
16940 
16950 
16960 
16970 
16980 
16990 
17600 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 
417400 
17140 
17120 
174130 
17140 
417150 
17160 
17170 
171680 
17190 
17200 
17210 
17220 
17240 
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SUB Stat_mat(WCk) ,X¢), YOR), 20K), 80K) ,CoCk) , 00K) ND 
OPTION BASE 4 

DEFAULT ON 

DIM A(400),B( 400) ,C( 400) ,D( 400) ,VCa) 

! OFF-SET 

O¢4)>mwC4) 

0(2)=xX(1) 

O¢3)=Y(4) 

0(4)=Z(4) 

! SUBTRACT OFF-SET 

FOR I=i TO N 

ACT) =W(I)-0¢4) 

BCI) =X(1)-0(2) 

C(1)=#¥(1)-0¢3) 

D(I)=Z(1)-0(4) 

NEXT I 

! SUMS 

6(4,4)=SUMCA) 

$(41,2)=SUM(B) 

$(4,3)=SUM(C) 

$(1,4)=SUM(D) 

! SUMS OF SQUARES 

S(2,41)=DOT(A,A) 

S(2,2)=DO0T(B,B) 

§(2,3)=DOT(C,C) 4 
S(2,4)=DOT(D,D) 
1 MEAN AND STAN DEV 

FOR I=1 TO 4 

8(3,I)=S¢4,1)/N 
V(I)=S(2,1)/N-S(3,1)*2 
S(4,1T)=SQR(VCI)) 

NEXT I 

! SUM OF CROSS PRODUCTS 
Co(i,4)=DOT(A,B) 
Co(1,2)=DOT(A,C) 
Co(41,3)=DOT(A,D) 
Co(41,4)=DOT(B,C) 
Co(1,5)=DOT(B,D) 
Co(1,6)=DOT(C,D) 

! COVARIANCE 
Co(2,4)=Co(4,1)/N-S(3,1)%S(3,2) 
Co(2,2)=Co(4,2)/N-S(3,4)#S(3,3) 
Co(2,3)=Co(4,3)/N-S(3,4)*S(3,4) 
Co(2,4)=Co(4,4>/N-S(3,2)%S (3,3) 
Co(2,5)=Co(4,5)/N-S(3,2)4S(3,4) 
Co(2,6)=C0(4,6)/N-S(3,3)8S(3,4) 
! CORRELATION COEFFICIENT 
Co(3,4)=C0(2,41)/(5(4,1)8804,2)) 
Co(3,2)=C0(2,2)/(8(4,4)KS(4,3)) 
Co(3,3)=C0(2,3)/(8(4,1)8S04,4)) 
Co(3,4)=C0(2,4)/(S(4,2)8S(4,3)) 
Co(3,5)=C0(2,5)/(8(4,2)8S(4,4)) 
Co(3,6)=C0(2,6)/(8(4,3)4S(4,4)) i 
SUBEND 





pk a 





1 
| 
! 
' 
' 
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417250 
17260 
17270 
17280 
17290 
47300 
47310 
17320 
147330 
417340 
47350 
17360 
17370 
417380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
47470 
17480 
17490 
17500 
17510 
17520 
47530 
17540 
17SS0 
17560 
417570 
17580 
47590 
17600 
17610 
17620 
17630 
17640 
17650 
17670 


SUB Store (WOR), XCR), YOR), Z08) RACH) RACK) ,US CR) NFS) 
OPTION BASE 1 

DIM A(400),B(100) C400) ,D(100) ,TS(400) ,E(100) ,F (4100) 
IF N(=100 THEN Set=4 

IF (N)400) AND (N<=200) THEN Set=2 

IF (N)200) AND (N(=300) THEN Set=3 

IF (N)300) AND (N(=400) THEN Set=4 

INPUT “ FILE NAME? “,FS 

PRINT “FILE=";F$,"SETS=";Set, "N="5N 

CREATE F$,Set,7000 

ASSIGN #4 TO FS 

PRINT #13;Set 

PRINT #45N 


J=0 
Load: ! 
FOR I=#4 TO 100 


IF I+3K100>N THEN Zero 
ACI) =WCI4+7K100) 

BCI) =X(1+7%100) 
C¢élo=V¥CI+I5K100) 
DCIV=Z(1+5%100) 

EC T>=Ri¢(I+5k100) 

FC II=RAC1+5%100) 

T$( I) =US(CI+7K100) 

GOTO Next 

Zero: ! 

ACI) =0 

BC(I)=0 

Cc Ll)=0 

D¢(I)>=0 

E¢I)=0 

FCI)=0 

T$¢C1)="" 

Next: NEXT I 

! ON END #4 GOTO 16770 
! PAUSE 

PRINT @#43;A0K), BOCK), CCK) DOK) ,ECK) ,FCK) , TECK) 
IF J+4=Set THEN SUBEXIT 
J=I+4 

GOT Load 

SUBEND 

' 


SUB Delete _blok (WOK), XCM), Y¥CH) Z(H) RACH) ,RACK) , TECH) NFS) 
OPTION BASE 4 
DIM We( 400) ,Xe(400) , Ye(400) ,Ze( 400) , Te$( 400) ,Rie( 400) ,R2e(400) 
PRINTER IS 0 
Sample: INPUT "FIRST SAMPLE IN BLOCK TO BE DELETED",Ni 
INPUT “LAST SAMPLE IN BLOCK TO BE DELETED",N2 
J=0 
FOR I=4 TON 
Sampl:IF (I>=Ni) AND (I¢=N2) THEN Next 
J=J+4 
DISP I,J 
We(Jy=WCT) 
Xe(J)=X¢1) 
Ye(Jo=YCID 
Ze(J)=Z¢1T) 
Rie (JO=R1I CT) 
R2e(J)=R2¢1) 
Te$(J)=TS$(I) 
Next: NEXT I 
N=J 
MAT W=We 
MAT X=Xe 
MAT Y=Ye 
MAT Z=Ze 
MAT Ri=Rie 
MAT R2=R2e 
FOR I=i TON 
T$(I)=Te$(I) 
NEXT I 
PRINT "SAMPLES"3N43 "THRU"3N2; "DELETED, ";N; "SAMPLES REMAIN" 
INPUT "ANOTHER BLOCK TO DELETE?" ,A$ 
IF AS="Y" THEN Sample 
End: SUBEND 
1 








46400 SUB Delete _tadCWCe) XC), VCR), ZCK)  RLCK) RACK), TECK) ,N, FS) 
48110 OPTION BASE 4 
18120 DIM We( 400) ,Xe(400), Ye(400),Ze( 400), Tes( 400) ,Rie( 400) ,R2e(400) 
18124 Sec$="WXYZ" 
48130 PRINTER IS 0 
18140 Sample:Ni=N 
49150 INPUT "CLIP LIMITS FOR WHICH SECONDARY? Wi ,X2, Y3, Z4",Sec 
48454 IF (Sec<4i) OR (Sec>4) THEN Sample 
: 48452 PRINT RPT$("_",80) 
48453 PRINT “SETTING CLIP LIMITS FOR “;Sec8{Sec;1) 
- 46454 INPUT “CLIP LIMITS?, MIN,MAX",L1,U4 
4845S PRINT “UPPER=";U4;" LOWER=";L4 
18180 J=0 : 
18190 FOR I=4 TON | 
48200 Sampl:0ON Sec GOTO Tw,Tx,Ty,Tz hs 
46204 TwilF (CWCTC(LEi) OR CWCTI> UL) THEN Next . 
48202 GOTO Keep 
48203 Tx: IF CXCIOCL4) OR (XCT)2 UL) THEN Next 
486204 GOTO Keep 
1820S Ty: IF (CYCID<CLGi)? OR CYCI) UL) THEN Next 
18206 GOTO Keep el 
48207 Tz:IF (ZCIDCL4) OR €Z¢T)>U4) THEN Next i] 
18230 Keep: J=J+i 
| 
1 


18240 DISP I,J 

18250 We(J>=WCT) 

£3260 Xe(J)=X¢(1) 

418270 YetJo=¥(T) 

18280 Ze(J)=Z¢1) 

18290 Rie(J>o=RICT) 

18300 R2e(J)>=R2¢1) 

18310 Tes(Jo=TS$(I) 

18320 Next: NEXT I 

18330 N=J 

18340 MAT W=We 

18350 MAT X=Xe 

18360 MAT Y=Ye 

18370 MAT Z=Ze 

183860 MAT Ri=Rie 

18390 MAT R2=R2e 

18400 FOR I=1 TO N 

£8410 T$(T)=Te$ (I) 

18420 NEXT I 

18430 PRINT Ni-N; "SAMPLES DELETED,";N;"SAMPLES REMAIN" 
18431 INPUT “SET ADDITIONAL CLIP LIMITS?",Q$ 
16432 IF UPCS$(Q$01,4))="Y" THEN Sample 
18510 End: SUBEND 

4195411 ! 





18520 
18530 
18540 
18550 
18560 
418570 
18574 
18572 
18580 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
ERS" 

18670 
18680 
18690 


SUB Track(Stat(®) ,O_set(x) ,Cov(%) ,R(K) Sample, FS, Wt, WF, Angle,N) 
DEG 
OPTION BASE i 
DEFAULT ON 
FIXED 2 
PRINT “LORAN-C POSITION ANALYSIS: ";FS 
Angle=Angle-180 
IF Angle<0 THEN Angle=Angle+360 : 
PRINT TAB(S); "FROM WP“;WF;" TO WP";Wt;",TRACK= “;Angle;" DEGREES” 
PRINT “REFERENCE WAYPOINT=" ;Wt 
Slope=R(i,4) 
IF R(3,4)=2 THEN Slope=i/Slope 
A=ATN(4/Slope) 
IF Slope<0 THEN A=A+180 
IF ACO THEN A=A+360 
PRINT TAB(S);”*RMS TRACKLINE="3;A;" DEGREES" : 
PRINT TAB(S); "AVE CROSS TRACK DISTANCE="; (0 set¢(3)+Stat(3,3)>K1000;" M 


PRINT TAR(S);"STD DEV CROSS TRACK DISTANCE=";Stat(4,3)*1000;" METERS" 
FIXED 3 ; 
PRINT TAB(S); "AVE X POS=";0_set(i)+Stat(3,4) 3 "KM"; TAB(40)5;"Y POS=";0 set 


»+Stat(3,2)3 "KM" : 
48700 PRINT TAB(S); "STANDARD DEV X=";Stat(4,4)%10003;" METERS"; TABC40); "Y=";Sta 
4,2)%1000; "METERS" 


418740 
18730 


SUBREND 
! 





SUB Psevde(Glat,Glon,R(&) ,Plat,Plon) 
OPTION BASE 1 

RAD 

DIM X(3),T(3) 
T(4)#COS(Glat)*COS(Glon) 
T(2)=COS(Glat)*SIN(Glon) 
T(3)2SIN(Glat) 

MAT X=R&T 
H=SQR(X(19°24X(2)°2) 
Plat=ATN(X(3)/H) 
Plon=ATN(X(2)/X(4)) 
SUBEND 

{ 





18880 DEF FNRange(X1,Y1,X2,Y2) 

18890 RETURN SQR((X2-X1) *24+(Y2-Y4)*2) 
16900 FNEND 

18920 ! 





' 18930 


| £8940 
; 48950 


: 18960 


' 48970 
' 48980 
. 48990 
' 49000 


° 49040 


19020 
49030 
19040 
49050 
19070 


SUB Rotate(Glat,Glon,R(*)) 
RAD 

OPTION BASE 4 
R(1,4)=COS(Glat)*COS(Glon) 
R(2,4)=-SIN(Glon) 
R(3,1)2-SIN(Glat)kCOS(Glon) 
R(1,2)=COS(Glat)*SIN(Glon) 
R(2,2)=C0S(Glon) 
R(3,2)=-SIN(Glat )¥SIN(Glon) 
R¢1,3)=SINCGlat) 

R(2,3)20 

R(3,3)>=COS(Glat) 


SUBREND 
! 
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49080 
19090 
19100 
19440 
49420 
19130 
19140 
19150 
19160 
19170 
19180 
419190 
19200 
19220 





SUB Cart(Plat,Plon,X,Y) 
OPTION BASE i 

RAD 

R=6378.135 

Cos=COS (Plat) *COS(Plon) 
Sin=SQR(41-Cos*2) 

The ta=ATN(Sin/Cos) 
S=RkTheta 
Sin=SIN(Plat)/SIN( Theta) 
Cos=SIN(Plon)*COS(Plat)/SIN( Thetad 
X=Sx%Cos 

Y=SuSin 

SUBEND 

' 
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' 49230 DEF FNGlat(Lat,F) 


19240 RAD 

49250 RETURN ATN((4-F)*2eTAN(Lat)) 
49260 FNEND 

19280 ! 





{ 
1 
| 
| 





19290 
19300 
193140 
19320 
19330 
19340 
49350 
19360 
19370 
19380 
19390 
19400 
19410 
19420 
19430 
19440 
19450 
19460 
49470 
19480 
49490 
19500 
19504 
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SUB Curt_coord(X(k),Lat,Lon,Z¢(x))! 
OPTION BASE i 
! CALCULATE XY COORDINATES OF TRANSMITTERS(Z(K)) WITH RESPECT 
! TO LOCAL GRID ORIGION(Lat,Lon) 
! INPUT: TRANSMITTER GEODETIC POSITIONS ;X¢x) 
! LAT AND LON OF LOCAL GRID ORIGION; Lat,ton 
! OUTPUT: TRANSMITTER XY POSITIONS; Z(x) 
! SEE APL TECH NOTE SDO S665 “EQUATIONS FOR COMPUTING.....",APREO 
DIM G(4,2) ,P(4,2) ,Rotate(3,3) 
=,00335278 
Rlat=Lat*P1I/180 
Rlat=FNGlat(Riat,F) 
Rlon=LonxXP1T/180 
CALL Rotate(Riat,Rlon,Rotate (k)) 
FOR I=1 TO 4 
GCI ,49=X(1,4)>*%P1/180 
G(1,4)=FNGlat(G¢(1,4),F) 
G(1,2)=X(I,2)*kPI/180 
CALL Psevdo(G(1,4),G6¢47,2) ,Rotate(k) ,P(I,4),P(1,2)) 
CALL, Cart(P(T,4),P(1,2),2¢1,4),2¢1,2)) 
NEXT I 


SUBEND 
! 
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49510 DEF FNGlat(Riat,F) 

19520 RAD 

49530 RETURN ATN((i-F) “2a TANCRiat)) 
49540 FNEND 

49560 ! 





eee even eernena 
2 Sie 


ee a 


= 


419570 
195680 
49590 
19600 
19610 
19620 
19630 
19640 
‘ 19650 
49660 
19670 
49680 
19690 
419700 
19718 
19720 
19730 
19740 
19750 
19760 
19770 
19780 
49790 
49800 
49810 
19820 
19830 
| 19840 
19850 
19860 
19870 
49880 
19890 
19900 
19940 
19920 
19930 
19940 
19956 
19970 





SUB Wp3(WOk),C,W, TOK), ZH) LS) 


OPTION BASE 1 


{ SELECT THE 3 TDs TO BE USED AS THE WAYPGINT(T(&)) FOR THE 
N THE CHAIN CONFIGURATION(C) 


1 3-TD FEHG SOLUTION BASED O 


{ INPUTS: 


OUTPUTS: 


ee ee ee er 


Z(4,4)=0(W,5) 
Z(2,2)=W(W, 6) 


ON C GOTO Xyz,Wxy,Wxz,Wyz 


Xyzi! 
TCL, 4 .=WCW,2) 
T(2,4).=WCW, 3) 
T(3, 4) =WCW, 4) 
L$="XYZ" 
SUBEXIT 

Wxy: ! 
TA, A) =WCW, 1) 

. 142,420, 2) 
T(3, 4. =WCW, 3) 
L.o="WXY " 
SUBEXIT 

Wxz:! 
T61,4)=WCW, 1) 
T(2,4)=WCW, 2) 
T(3,1)=WCW, 4) 
L$="WXZ" 
SUBEXIT 

Wyz: ! 
T(4, 4) =WCW, 1) 
T(2,14).=W(W,3) 
TOS, 1) =WCW, 4) 
L.o="WYZ" 


SUBEND 
! 





T(&); WAYPOINT TDs 
Z(k); WAYPOINT XY POSITION 
L$; LABEL 


Wk); WAYPOINT TABLE 
C; CHAIN CONFIGURATION, 
W; WAYPOINT NUMBER 


4=XYZ, 2=WXY, 3=WXZ, 4=WYZ 


a ae 
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49980 SUB Td3cWCe), XC), YOK), 20K), 1,0, TOK) 

49990 OPTION BASE i 

20000 ! SELECTS THE PROPER TD SAMPLES FOR CALCULATING XY POSITION 
20040 ! BASED ON CHAIN CONFIGURATION AND 3-TD FEHG SOLUTION 

20020 ! INPUTS: 


20030 ! WC), XCK),YCK),Z0K); TD DATA ARRAYS 

20040 ! I; SAMPLE NUMBER 

20050 ! C3} CHAIN CONFIGURATION 1=XYZ, 2=WXY, 3=WXZ, 4=WYZ 
20060 ! OUTPUT: ; 

20070 ! T(k); TD SAMPLE 


20080 ON C GOTO Xyz,Wxy,Wxz,Wyz 
20090 Xyz:! 


201008 T(4,40=X(T) 
20440 T(2,4)2YCT) 
20120 T(3,49=Z¢1) 
20430 SUBEXIT 
20140 Wxy: | 


20150 TCL, 49 =WCT) 

20460 T62,49=X(1) 

20470 T63,49=YC(1) 

20180 SUBEXIT 

20190 Wyz: ! 

20200 T(4,49=W(T) ‘ | 

20210 T62,4)=YC1) 
| 20220 T(3,4)=Z¢1) 
| 20230 SUBEXIT 
20240 Wxz: ! 

, 20250 Ti, 4=WCT) 

20260 T(2,4)=XCI) 

20270 T(3,4)0=Z¢1) 

20280 SUREND 

20300 ! 





H 
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fi 
| 
| 
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SUB Wp2(WCR),C,W, TCR), P,Z0R) ,Gi2(K) ,G23CK) ,Gi3CKe) , GCE), LE, Zx(B) ,Zxt(u)) 
OPTION BASE 1 

20330 ! SELECT WAYPOINT TDs,POSITION, TRANSMITTER POSITIONS AND G-MATRIX FOR 2-TD 
FEHG SOLUTION 

20340 ! FEHG SOLUTION BASED ON CHAIN CONFIGURATION AND DESIRED TD PAIR 

20350 |! INPUTS: 


































20360 |! WCk); WAYPOINT TABLE 

20370 ! C; CHAIN CONFIGURATION 1=XYZ, 2=WXY, 3=8WXZ, 4=WYZ 

20380 ! P; TD PAIR ; 

20390 ! G12) ,G23R(K) ,Gi3(%); 2-TD G-MATRICES | 

20400 ! Zx(&)3 TRANSMITTER POSITIONS ‘ 
20410 ! OUTPUTS: 

20420 ! TCk); WAYPOINT TDs 

20430 ! GO); G-MATRIX 

20440 ! Z(K); WAYPOINT POSITION 

20450 ! Zxt(K); TRANSMITTER POSITIONS FOR 2-TD SOLUTION 


20460 ! L$; LABEL 
20470 2(4,1)=WtW,5S) 
20480 Z¢(2,1)=WCW, 6) 
20490 Zxt(3,41)=Zx(4,4) 
20500 Zxt(3,2)2Zx(4,2) 
20540 ON C GOTO Xyz,Wxy,Wxz,Wyz 
20520 Xyz:! : 
20530 INPUT “INPUT TD PAIR; XY41, XZ2, YZ3",P 
20540 ON P GOTO Xy,Xz,Yz 
20550 Wxy:! 
20560 INPUT “INPUT TD PAIR; WX1, WY2, XY3",P 
20570 ON P GOTO Wx,Wy, Xy 
20580 Wxz:! 
20590 INPUT “INPUT TD PAIR; WX4, WZ2, XZ3",P 
20606 ON P GOTO Wx,Wz,Xz 
20610 Wyz:! 
20620 INPUT “INPUT TD PAIR; WY1, WZ2, YZ3",P 
20630 ON P GOTO Wy,Wz,Yz 
20640 Wx: ! 
20650 TCL, 4)=WCW, 4) 
20660 T(2,4)=WCW,2) 
20670 LS="WX" 
20680 GOTO Xmit_sel 
20690 Wy: ! 
20700 T(4, 4) =WCW, 4) 
ty 20710 T(2,1)5WCW,3) 


| 20720 Lo="Wy" 
20730 GOTO Xmit_seb 
20740 Wz: ' 


po 20750 TCL, 4) =WCW, 4) 
F 20760 T62,1).=WCW, 4) 
: 20770 L$="WZ" 
i. 20780 GOTO Xmit_sel 
B.S 20790 Xy: ! 
20800 T(4,49=WCW,2) 
20810 Tl2,4.=WCW, 3) 
20820 Lo="xy* 
BU 20830 GOTO Xmit_sel 
3, | Xz: ! 





20850 TC4,4)eWCW,2) 
' 20860 TC(2,4)eW(W,4) 
. 20870 Ls="xXz" 
' 20880 GOTO Xnit_sel 
20890 Yz: |! 
20900 3 3=T¢(4,4)=W(W,3) 
20940 T2,4>=WCW,4) 
20920 L$="yz" 
20930 GOTO Xmit_sel 
20940 Xmit_sel: ! 
' 20950 ON P GOTO Xi2,X13,X23 
20960 X12: ! 
20970 MAT G=G12 
20980 Zxt¢4,4)=Zx(4,4) 
20990 Zxt(4,2)=Zx(4,2) 
21000 Zxt(2,4)=Zx (2,4) 
21010 Zxt(2,2)"Zx(2,2) 
21020 SUBEXIT 
21030 X43: ! 
21040 MAT G=G613 
21050 Zxt(4,4=ZxC4,4) 
21060 Zxt(4,2)=Zx (4,2) 
21070 Zxt62,4)=Zx(3,4) 
| 21080 Zxt(2,2)=Zx(3,2) 


21090 SUBEXIT 

24100 X23: ! 

241140 MAT G=G623 
j 21120 Zxt(4,1.=Zx(2,4) 

| 21430 Zxt(4,2)2Zx(2,2) 

‘ 21140 Zxt(2,4)2Zx(3,4) 
mi 21150 Zxt(2,2)=Zx (3,2) 
21460 SUBEND 
24180 ! 
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21190 SUB Td2( acm), XCR), YOK), Z68),1,C,P, Tee)? 

21200 ! SELECT THE PROPER TD "SAMPLES FOR CALCULATING XY POSITION 
242iu ! BASED ON CHAIN CONFIGURATION, TD PAIR, AND 2-TD FEHG SOLUTION 
21220 ! INPUTS: 


| 24230 ! WOK), XOR), YO, 700); TD DATA ARRAYS 
 paeao | 1; SAMPLE NUMBER 

| 24250 ! C} CHAIN CONFIGURATION 

/ 241260 |! P; TD PAIR 

' 29270 | OUTPUT: 

: a4280 |! TOK); TD SAMPLE 


- 24290 OPTION BASE i 
21300 ON C GOTO Xyz,Wxy,Wxz,Wyz 
21310 Xyz:! 
21320 ON P GOTO Xy,Xz,Yz 
24330 Wxy:! 
21340 ON P GOTO Wx ,Wy,Xy 
21350 Wxz:! 
21360 ON P GOTO Wx,Wz,Xz 
24370 Wyz:! | 
21380 ON P GOTO Wy,Wz,Yz ' 
21390 Wx:! 
21400 T64,4 2=W(1) 
24440 T(2,4)9=X(T) ‘ 
21420 SUBEXIT 
24430 Wy: ! 
21440 T(1,4)=W(T) 
214450 T(2,4)=YCT) 

' 24460 SUBEXIT 
24470 Wz:;! 

- 24480 T6141, 4 =WC1) 
21490 T(2,4).=2Z(1) 
21500 SUREXIT 
21510 Xy:! 
21520 T44,4)=xX(T) 
21530 Tt2,49=VCI) 
21540 SUBEXIT i 
21550 Xz:! : 
21560 T(4,49=XCT) 
21570 T(2,4)=Z¢1I) 
214580 SUBEXIT 
24590 Yz:! 
21600 Ti1,4)2Y(T) 
214610 T(2,4)22Z¢1) 
21620 SUBEND . ii 
24640 ! | 








21650 SUB Wpf2(W(e) ,C,P,W, Te) ) 
; 24660 ! SELECTS PROPER TDs FROM WAYPOINT FILE FOR CALCULATION OF 


{ 24670 ! THE “FROM" WAYPOINT POSITION USING THE 2-TD FEHG SOLUTION 
: @1680 ! INPUTS: 


oe ee 


21690 ! WCk); WAYPOINT FILE 

21700 ! C; CHAIN CONFIGURATION 

21740 ! P; TD PAIR 

21720 ! W; WAYPOINT FROM 

24730 | QUTPUT: 

21740 ! TCK); 2-TD WAYPOINT FOR WAYPOINT FROM 


21750 ON C GOTO Xyz,Wxy,Wxz ,Wyz 
— 24760 Xyz: ON P GOTO Xy,Xz,Yz 
24770 Wxy: ON P GOTO Wx ,Wy, Xy 
21780 Wyz: ON P GOTO Wy,Wz,Yz 
21790 Wx:! 
‘21800 TC1, i d=WKW, 1) 
21810 T(2,1).=WCW, 2) 
21820 SUBEXIT 
24830 wWy:! 
21840 T(4,4).=WCW, 4) 
21850 Té2,1).=WW, 3) 
21860 SUBEXIT 
21870 Wz:! 
| 21880 T(41,4).=WCW, 4) 
21890 T(2,4).=WCW, 4) 
21900 SUREXIT 
ff: 219410 Xy:! 
| 21920 T(1,4)=WCW, 2) 
{| 24930 T(2,4)=W(W,3) 
21940 SUBEXIT 
24950 Xz:! 
‘ae 21960 T(1,1)=WCW, 2) 
RA 21970 T(2,1)=WCW, 4) 
ive 24980 SUBEXIT 
| 24990 Y2:! 
cy 22000 T(4,4)=WCW,3) 
i 22040 T(2,4)=WCW, 4) 
, 22020 SUBEND 
22040 ! 
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SUB Rb(X1,Y1,X2,Y2,B,R) 
DEG 

DEFAULT ON 

Dx=X2-X 4 

Dy=Y2-Y4 
R=SQR(Dx*2+Dy*2) 
B=ATN(Dx/Dy) 

IF Dy<O THEN B=B+i80 
IF B¢O THEN B=B+360 
SUBEND 





Se 


22720 SUB Project(W,Wpt(K) WOR) XCK), YOK) ZC), ZKCK) , Zy CB) Conf, Zxalt (hk) N,V) 
| 22730 OPTION BASE 1 
: 22740 DIM T1(400),7T2¢400) , T3400) , Bear (4) ,Range(4) ,T¢(3) 
' 22750 ! REFLECTS "TDs MEASURED NEAR A WAYPOINT TO THE WAYPOINT 
‘22760 ! TDreflect=TDmeas-(h(Zmeas)—-h( Zwaypoint)> 

' 22770 ! h(Z)=(Range_secondary-Range_master)/Velocity _propogation 
' 22780 ! CALCULATE h(Zwaypoint) 
: 22790 FOR I#i TO 4 
: 22800 CALL Rb(Wpt(W,S) ,WetCW,6),Zxmit(l,4),Zxmit(1,2),Bear¢1) ,RangetI)) 
| 22810 NEXT I 
; 22820 FOR I=4 TO 3 
| 22830 T(1)=¢(Range (1)—-Range(4))/V 
: 22840 NEXT I ; 

: 22850 =! CALCULATE h(Zmeas)-h(Zwaypoint) 

22860 FOR I=i4 TO N 

' 22870 FOR J=i TO 4 

22880 CALL Rb(Zx(I),ZyC(1),Zxmit(T,4),Zxmit(I,2), Bear (J) ,Range(J)> 
22890 NEXT J 

22900 TiCI)=(Range(i>—-Range(4))/V-T(1) 

22910 T2¢cI)=(Range(2)~-Range (4) )/V-T(2) 

22920 T3CT)=(Range(3)-Range(4))/V-T(3) 

22930 NEXT I 

22940 =! _ CALCULATE TDmeas-TDpro } 

22950 =! CALCULATE TDmeas-({ TDwaypoint+(h(Zmeas)—-h (Zwaypoint))>] 
22960 ON Conf GOTO Xyz,Wxy ,Wxz,Wyz 

22970 Xyz: ! 

22980 MAT W=(0) 

' 22990 MAT X=X-Ti 

- 23000 MAT X=X-(Wptt(W,2))> 

; 23010 MAT Y=Y-T2 

-23020 MAT Y=Y-(Wpt(W,3>) 

‘23030 MAT Z=Z-TS 

,23040 MAT Z=Z~-(Wpt(W,4)) 

23050 SUBEXIT 

23060 Wxy: ! 

23070 MAT WeW-Ti 

23080 MAT W=W-(Wpt(W,4>) 

230990 MAT X=X-T2 

234100 MAT X=X-(Wpt(W,2)) 

23140 MAT Y=Y-T3 

23120 MAT Y=Y-CWpt(W,3)) 

23130 MAT Z=(0) 

23440 SUBEXIT 

23150 Wxz: ! . 

23460 MAT W=W-T4i 

231470 MAT W=W-(CWptiW,1)) 

23180 MAT X=X-T2 

23190 MAT X=X-(CWpt(W,2)) 

23200 MAT ¥=(0) 

23210 MAT Z2*Z-T3 

23220 MAT Z#Z~-(Wot(W,4)) 

23230 SUBEXIT 

23240 Wy2z: } 

23250 MAT WaW-Ti 

23260 MAT WeW-(Wpt(W,4)) 


ees 





MAT X=(0) 
MAT Y=Y-T2 

MAT Y=Y-(Wpt(W,3)) 
MAT Z=Z-T3 

MAT Z=Z-(CUpt(W,4)) 
SUBEND 

1 
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SUB Way(Si(H) ,S2CK) , RACK) RACK) NM, Wp) 
DEG 
OPTION BASE i 
DIM M(2,2) ,G6(2,2) ,E(2,4) ,W2,4) 
DEFAULT ON 
FOR I=4i TO 6 
! CALCULATE WAYPOINT 
M(4,2)=M(2,2) 3-4 i 
MC4,4)°R4(04,1) : 
M(2,4)2R2(4,1) 
ECL, 4)=MC4,49%45401,1)-81(2,1) 
E(2,4)2M(2,4)9eS2(4,1)-S2(2,1) 
MAT G=INV(M) 
MAT W=GXKE 
t STORE WAYPOINT 
Wp¢i,T>=wti,i) 
Wp(2,1)=W(2,4) 
IF (S4¢4,1)=0) OR (654¢2,31)20) OR (S2(4,1)=0) OR (S2¢2,1)=0) THEN Wpo(i,1)=0 
IF (94¢4,1)=0) OR (S4¢2,1)=0) OR (S2¢4,T)=0) OR (S2¢2,T)#0) THEN Wn¢2,1)=0 
' CALCULATE CROSSING ANGLES 
An=ATN(M(1,4)) 
En=ATN(M(2,4)) 
Cn=ABRS( Bn-An) 
{ PRINT An,Bn,Cn 
! IF Cn>90 THEN Cn=180-Ch 
' CALCULATE DISTANCE BETWEEN WP AND MEAN OF INDEPENDENT VAR 
Di=Si(R1i(3,1), IT -WCRi¢3,1),4) 
D2=S2(R2°3,1),T)-WCR2¢3,1),4) 
' STANDARD DEVIATION OF IND VAR 
$1=S4(R1¢3,1)+2,1) 
S2=$2(R2(3,1)+2,1) 
! VAR OF REGRESSION LINE AT WP 
VA=RI(2,1)*2kC4/N4+D1°2/(N-2)/54%2) 
V2=R2(2,1)*°2k%(4/M4+D2%2/ (M-2) /S2%2° 
! RMS ERROR OF WAYPOINT 
V=V¥i+V2 
S=SQR(V) 
$=S/SIN(Cn) 
Wp¢3,1)=S 
Wp(4,1I>=Cn 
NEXT I 
SUBEND 
! 














23770 SUB Wprint (Wp (%)) 
23780 OPTION BASE 4 
23790 FOR I=i TO 4 
23800 FOR J=i TO 6 
23810 IF Wp(1,J)>410°6 THEN Wp(I,J)=0 
23820 NEXT J | 
23830 NEXT I i] 
23840 PRINT RPT$("_",80) || 
23850 PRINT LIN(4);TAB(30);"WAYPOINT SOLUTION" bs 
23860 PRINT RPT$("_",80) 7 
23870 FIXED 3 | 
23880 PRINT LINC4);TAB(4);"TD PAIR”; TABC20) 5 "WX"; TABC3L) 5 "WY"; TABC42) 5 "WZ" 5 TABC 
53); "XY"; TABCO4) 5 "XZ"3 TABC7S) 3 "YZ" 
23890 PRINT LIN(1) ;TABC4) 3 "TDW"; TABCAS) ;Wp(4,4) 5; TABC 26) Wp (4,2) 5 TARC37) ;Wp(4,3) 
23900 PRINT LIN(4);TABCL) 3; "TDX";TABCSS) Wp (2,4); TAB 48) ;Wp(1,4);TABCS9) ;Wp (4,5: | 
23940 PRINT LINC); TABC4);"TDY" 3 TAR(26) ;Wp(2,2) 3 TAB(4B8) ;Wp (2,4); TABC70) ;Wp(i,6) 
23920 PRINT LIN(L); TABCL) 3 "TDZ"3 TAB(37) ;Wp (2,3); TABCS9) ;Wp (2,5) 3 TAB(70) ;Wp (2,6) 
23930 PRINT LIN(4);TAB(4);"RMS ERROR"; TABC1S) ;Wp (3,4); TABC29) Wp 3,2) 5 TABC 40) 5b 
p(3,3);TAB(S4S) ;Wp (3,4) ;TAB(62) ;Wp (3,5); TAR(73) ;Wp(3,6) 
23940 PRINT LIN(4);TAB(4); "CROSSING ANGLE"; TARC1S) ;Wp (4,4) 5 TARC29) ;Up (4,2) 5 TABS 
40);Wp (4,3); TABCS4) Wp 4,4) ; TABC 62) ;Wp (4,5) ; TAB(73) Wp (4,6) 
23950 PRINT RPT$("_",80) 
23960 PRINT LIN(4) 
23970 SUBEND 
23974 =! 
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23980 SUB Data(W(xk),X(K),YCK),Z(%),N,Ang,Ds,De,Signa,Xmit(&),Zp(%) ,V, Conf) 
23990 DEG 

24000 OPTION BASE 1 

24010 DEFAULT ON 

24020 DIM R(4),714(400),T2(400) ,T3¢400) ,T(3) ,Zqle, 


24030 =! CALCULATE SAMPLE INTERVAL 
24040 Di=(De-Ds)/N 

24050 =! CALCULATE TD SAMPLES 
24060 D=Ds : 

24070 =! CALCULATE h(Zp(*)) 


24080 FOR J=i1 TO 4 

24090 CALL Range(Zp(4),Zp 2) ,Xmit(T,41) ,Xmit(sT,2) ,RCI)) 
24400 NEXT J 

24410 FOR J=1 TO 3 

24420 TCJD=CRC4)-R(OJDO7V 

241430 NEXT J 

244140 FOR I=1i TON 

24150 DISP I3N 


j 24160! CALCULATE Zq(*) 
é 24170 DEG 
24480 Zq(4)=DkCOS(Ang)/(4.852460) +Zp (4) ! LAT 
24190 2q(2)= DKSIN(Ang)/(4.852%60KC0S(Zp(4)))+Zp¢2) ! LON 
24200 INCREMEN: D 
24240 er 
| 2an2n |! CALCULATE NOISE 
24230 RAD 
; 24240 U4=RND 
; 24250 U2=RND 
i | 24260 U3=RND 
iG 24270 Nie (-2KLOG(UL))*,.SKCOS(2KPIKU2)*kSigma 
A 24280 =(-2KLOG(UL))*. SKSIN(2kP IKU2) Sigma 
Ot 24290 NS= (-2*L0G (U2) )*,. SKSINC2KP1KU3) KS igma 
A 24300 CALCULATE n(Z2q)-h(Zp)+N 
24310 pak J=i TO 4 
24320 CALL Range (Zq(4),Zq(2) ,Xmit(T,4) ,Xmitls,2), RCI) 
24330 NEXT J 


24340 TACTIDECRC4AD-ROV1)D/U-TCAD ENG 
24350 3 T2ACT)=(R(4)-RC2) )/V-T(2)4+N2 
24360 TSCTI=(RC4)-R C03) /V-TC 3) 4N3 
24370 oe I 


i 


: 24380 STORE DATA IN PROPER ARRAY 
} 24390 oi Conf GOTO Xyz,Wxy,Wxz,Wyz 
} 24400 Xyz: ! 

24440 MAT W=(0) . 


24420 MAT X=T1 
24430 MAT Y=T2 
24440 MAT Z=T3 
24450 SUBEXIT 
24460 Wxy: ! 
24470 MAT We=Tt 
24480 MAT X=T2 
24490 MAT Y=T3 
24500 MAT Z=(0) 
24510 SUBEXIT 
24520 Wxz:;! 
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24530 
24540 
24550 
24560 
24570 
24580 
24590 
24600 
24610 
24620 
24630 
24631 


MAT W=Ti 
MAT X=T2 
MAT Y=(0) 
MAT Z=T3 
SUBEXIT 
Wyz: ! 
MAT WaT 
MAT X=(0) 
MAT Y=T2 
MAT Z=T3 
SUBEND 
' 





SUB Read al tcWck) ,XCK), YCK),Z(8), Times(%) , Sample , FS) 
OPTION BASE 4 Ane 
DIM AC100) ,B¢ 100) ,C(100) , D400) , T8100) 
MASS STORAGE IS “:T14" 
Sample=0 
MAT W=(0) 
MAT X=(0) 
MAT Y=(0) 
MAT Z=(0) 
FOR I=i TO 400 
Times(I)=** 
NEXT I 
INPUT “ FILE NAME? "“,FS 
ASSIGN #1 TO FS 
! READ #41;Set 
READ #1;Set,Sample 
FOR J=0 TO 3 
ON END #4 GOTO 24830 
READ #41;A(K) , BCH), CCK), DCR), TECK) 
FOR I=4 TO 100 
WCI+Ie100)=ACT) 
X(I+J3K100)=B(I) 
Y¥CI+IK100)=C¢( I) 
Z(1+IKi00)=D(1) 
Time$(14+J%100)=TS$(1) 
1 IF (CACTI =BCI))=C¢CI))=DCI) THEN Sample=I-1+J%100 
! IF Sample<¢>0 THEN SUBEXIT 
IF I+Jk100=Sample THEN SUBEXIT 
NEXT I 
IF J+#4=Set THEN SUBEXIT 
NEXT J 


SUBEND 
' 
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24970 SUB Separate (W(K) , XC), CR), ZK), Rice), R2(k), TECH) WER) , XtCK) Vee, ia 
pRit(k) ,RAt(K), Ted e), ND 
24980 OPTION BASE 4 
- 25000 N=0 
250140 MAT Wt=(0) 
25020 MAT Xt=(0) 
25030 MAT Yr=(0) 
25040 MAT Zt#(0) 
25044 MAT Rit=(0) 
25042 MAT R2t#(0) 
25043 FOR I=i TO 400 
25044 Tr$(I)="" 
2504S NEXT I 
25050 PRINTER IS 16 
25060 PRINT LIN(20);"FOR SUBFILE ENTER: * 
25070 INPUT “START SAMPLE NUMBER” ,Start 
25080 INPUT “STOP SAMPLE NUMRER®,Stop 
25090 FOR I=Start TO Stop 
25100 N=N+4 
254410 Wt(N=W(1) 
25420 Xt(N)=X(I) 
25430 YrCNd=YCI) 
25440 Zt(N)=2Z(1) 
25150 Rit(Nd=R1i(T) 
25160 R2t(N)=R2C1) 
25170 TtS(N=TS$C(I) 
25180 NEXT I 
25210 SUBEND 
25214 | 


a TS 





25220 DEF FNReady! 

25230 A=0 

25240 COM Deom${S500) ,Sel_code 

25250 IF POS(Dcom$,CHRS$(13))>0 THEN Asi 
25260 RETURN A 

25261 ! 
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PROGRAM APPLICATIONS 


The program “COMPAR” is a collection of special function programs used 
to analyze data collected during a Loran-C Harbor Survey with microwave 
positioning augmentation. The major functions of the program are to: 


a. Calculate waypoint Loran-C time differences 


b. Evaluate the performance of Loran-C positioning against the 
microwave reference system (e.g. Mini-ranger) 


c. Calculate Loran-C time differences of trackpoints 


The following is a set of general procedures to use in applying COMPAR to 
analyze data collected during a harbor survey with microwave positioning 
augmentation: 


Preliminaries. Waypoint table, Loran-C chain data, and Mini-ranger 
reference station data files are necessary for complete data analysis. The 
waypoint table file contains time~differences, local xy coordinates, 
latitude and longitude for twenty~five waypoints (see K23). The Loran-C 
chain data file contains latitude and longitude and power level for three 
secondaries and the master and the emission delays for the three secondaries 
(see K26). The Mini-ranger reference station files contain the name and xy 
coordinates of two reference stations and the local origin used to calculate 
position using Mini-ranger data (see K28). The waypoint table, Loran-C 
chain data, and Mini-ranger reference station data files are prepared during 
the survey planning stages. It is convenient to have the waypoint table 
file(s), chain data file and reference station file(s) on the same data tape 
cartridge. 


The Loran-C TD data may be corrected for known offsets during the time 
period that data was collected. Offsets can be determined from a local 
monitor TD record and data from the system area monitor. Known calibration 
errors in the Mini-ranger range data may also be corrected (see KO). 


Waypoint TD Calculations: The primary method to calculate waypoint TDs is 
to "reflect" TDs collected near a waypoint to the waypoint. The "reflect" 
function (see K27) calculates the difference in TDs between the measurement 
position and the waypoint position. This difference is applied as a 
correction to the measured TDs for each sample. The mean and standard 
deviation of the "reflected" TDs are then calculated. 


The standard deviation of the reflected TDs should be slightly larger 
than the standard deviations of data collected at dockside. Outliers in the 
Mini-ranger data is the usual cause of high standard deviations in the 
reflected TD data. It is a good practice to plot the xy positions (see K18) 
calculated from the Mini-ranger data prior to reflecting the data to the 
waypoint. Outliers are easily identified from the plotted data. Another 
suggestion is to perform the automatic range outlier edit function (see K:6, 
option 4) prior to converting the range data to xy positions. 
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Data is collected at several points near a waypoint (typically moored to 
or stationed near a buoy in the vicinity of the waypoint). An optional deta 
collection technique is to maneuver the survey vessel in a cloverleaf 
pattern centered at the waypoint. Waypoint TD estimates are celculated from 
each data file. The results are compared to each as a check for errors. 
Agreement to within 20 to 30 nanoseconds of the mean can be expected. 
Differences are the results of estimation errors due to noise, uncorrected 
TD offsets, the difference in distance between the measurement positions and 
the waypoint, uncorrected range errors, etc. It is left to the judgement of 
the data analyst how to combine the waypoint TD estimates for each data file 
to form the final TD estimate. The most straightforward approach is to 
average the estimates. Figure 1 is a flow chart for calculating waypoints 
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For each data file collected near the waypoint of interest 


Read data file (K0) 







Correct range data 
Correct TD data 






Edit data for range errors (K16, option 4) 


Convert range data to xy position (K1) 







Plot xy data and check for outliers (K18) 


If outliers are detected: 








Delete bad samples (K16, options 1 or 2 






AND 
Recalculate xy position (Kl) 






Reflect TDs to waypoint of interest (K27) 






Calculate final waypoint estimate (i.e. average results 
from each data file) 







FLOWCHART OF WAYPOINT CALCULATIONS 





FIGURE 1 












c rison of Performance. TD and Mini-ranger data are collected along 
chesast edges and centerlines during a harbor survey with microwave 
positioning augmentation. These data files can be used to compare the 
position fixes obtained from Mini-ranger and the positions calculated from 
the TDs using calculated waypoints. This comparison provides a verification 
of the waypoint calculations, a measure of performance which may be expected 
using a Loran-C navigation device (e.g. PILOT), and enables the data analyst 
to decide if a trackpoint is necessary between waypoints. 

















The coordinates for waypoints and Mini-ranger reference stations are 
based on Army Corps of Engineers (COE) dredging data. The COE coordinates 
are in state plane coordinates. These coordinates are translated to local 
coordinates by subtracting the state plane coordinates of the local origin 
and changing units from feet to kilometers. Waypoints are calculated as the 
intersection of channel centerlines. 









The position fixes for Mini-ranger data are computed using trilateration 
| (see K1). Along and crosstrack positions are based on the range and bearing 
calculated between tabulated waypoint coordinates. 





| The Flat Earth Hyperbolic Grid (FEHG) algorithm is used to compute xy 
coordinates from TD data (see KI17). Inputs to the algorithm are calculated 
waypoint TDs, waypoint xy coordinates and transmitter xy coordinates. The 
transmitter xy coordinates are referenced to the local origin. The FEHG 

: algorithm is also used to calculate the coordinates of the next waypoint for 

along/cross track calculations. 
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. The function "Compare Mini-ranger and Loran-C Position Data" (see K3) 
Ni calculates the difference in xy position and along/cross track position for 
y . @ach data sample and the mean and rms values of the differences for the data 
cA set. If the Mini-ranger positions are assumed to be “truth," the result is 
AY an evaluation of the accuracy of the Loran-C fixes for the data set. Plots 
are provided for the xy "errors" and along/cross track “errors.” Plots of 
the xy data and along/cross track data are also available (see K18 and K19). 










One must be careful to compare "oranges to oranges" when evaluating the 
“error” statistics and plots generated by the function K3. The domain in 
which a Loran-C harbor navigation device (e.g. PILOT) operates is distances 
| relative to a trackline defined by two waypoints (i.e. along/cross track). 
| The xy "error" data is interesting, but its only significance is that the x 
| and y errors should approach zero near the "TO" waypoint (along track 
| 








distance = 0). Large xy errors near the "TO" waypoint is indicative of an j 
error in the waypoint, the Mini-ranger data, or the Loran-C data. 1 | 











The along/cross Drack "errors" are the more significant. If both the 
waypoint "TO" and "FROM" waypoint calculations are correct, the cross track 
distance "errors" at each end of the trackline will be near zero. The along 
track distance errors should converge to zero at the "TO" waypoint. Note 

that for the Mini-ranger data, along and cross track distance are calculated 
using the distance and bearing calculated between the waypoint coordinates 

determined from COE dredging data (see Figure 2). For the Loran-C data, the 
"TO" waypoint xy coordinates are the same as those used in the Mini-ranger 
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Wi - Waypoint "TO" xy position; calculated from COE 
dredging data; stored in waypoint table 


Witl - Waypoint "FROM" xy position; calculated from 
COE dredging data; stored in waypoint table 


w itl - Waypoint "FROM" xy position calculated using 
FEHG algorithm relative to Wi 


O © bearing from Wi to Wiel 
0’ ~ bearing from Wi to Wi+tl 
R- range from Wi to Wiel 


x' - range from Wi to Wiel 


FIGURE 2 
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Correct range data 
oe Correct TD data 


i Edie data for range errors (K16, option 4) 
ars Convert range data to xy position (Kl) 


Convert TD data to xy position (K17) 
(Use same "TO" and "FROM" waypoints as above) 


| 
| Reed data file (KO) 
? 
| 
| 
| 
| Compare the two sets of xy data (K3) 
Plot xy data (K18) = optional 
Plot along/cross track data (K19) - optional 


If cross track errors are significant 


Calculate grid warp (K21) 
Calculate track point 





| ‘SUMMARY OF PROCEDURE TO COMPARE POSITION DATA 
CALCULATED FROM MINI-RANGER AND LORAN~-C 


| FIGURE 3 
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Trackpoint Calculations. Cross track error is the best measure of the 
expected performance of Loran-C navigation between waypoints. The plot of 
the cross track errors may exhibit a "bow” between the waypoints. That is, 
the e, ror will be near zero at both endpoints, and there will be a well 
defined offset somewhere near the halfway point. The severity of this bow 
and the channel dimensions are the factors which must be evaluated to 
determine if a track point is necessary. A trackpoint is basically a 
waypoint located on the centerline between two waypoints. The data analyst 
determines the location of a trackpoint(s) by inspecting the cross track 
error plot. The along track distance where a trackpoint(s) is needed is 
recorded. The function, Calculate Grid Warp (see K21), is used to calculate 
the difference between the measured TDs and the TDs projected from the 
waypoint based on the difference in position between the waypoint and 
measurement point. The differences are plotted against along track 
distance. Therefore, the correction to be applied at the trackpoint for 
each TD can be picked off the error plot at the along track distance the 
trackpoint is to be located. The ideal TD at the trackpoint is calculated 
using the TD Move (see K24) function. The trackpoint TD is equal to the 
ideal TD plus the correction determined from the TD error plot. 


Miscellaneous. The mean and standard deviation of TD data collected are 
calculated using the function, Stats and Regression of TD Data (see K2). 
This function also calculates covariance, correlation coefficients, and 
linear regression slopes for each TD pair. The TD data is plotted using the 
function, Plot TD Data with Regression Lines (see K4). Residuals for the 
linear regression of TD pairs is plotted using the function, Plot Residuals 
of TD data (see K5). 


The function, Predict TD (see K20), is used to predict the TDs for a 
waypoint or any position of interest. The function also outputs ranges and 
bearings to the transmitters and geometric dilution of precision (GDOP) for 
th: three TD fix and each of the possible two TD fixes. 


The function, Link Data Files (see K25), is used to load more than one 
data file into computer memory. The function will limit the total number of 
samples at 400. The combined data may then be restored on a new file. 


The function, Daisy Chain Waypoints (see K25), calculates the position 
of one waypoint with respect to another based on the difference in TDs 
between waypoints. This function is more frequently used during visual 
surveys. However, it is very useful to compare the range and bearing 
computed with the range and bearing from COE coordinates as a check of 
waypoint calculations. Bearing angles are generally within .5 degrees, and 
ranges within 100 meters. 


The functions, File or Read WP Data (see K23), Store Chain Data (see 
K26), and File or Read Reference Station Data (see K28), are used to file 
reference data for further use and to store waypoint data. 
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Data Analysis Software 


Function: Read Data File 
Special function key: KO 
Subprograms: 


Read (w(*), X(*), Y¥(*), Z(*), R1(*), R2(*), U$(*), N, FS) 
The program function reads time-difference (TD), range and time-of-day data 
stored on magnetic tape. The range and TD data may be corrected for known 
errors. If the range data is corrected, a lower case "r" is annotated to the 


file name, F$. If TDs are corrected, a lower case "t" is annotated to F$. 


Input parameters: 


Fg - File name 

Range $ - Indicates if Range data is to be corrected, "Y" = yes, "N" = no. 
Ric - correction to R1(*) 

R2c - correction to R2(*) 

Td corg - Indicates if TD data is to be corrected, "Y" = yes, "N" = no. 
Weor - correction to W(*) 

Xcor - correction to X(*) 

Ycor - correction to Y(*) 

Zcor - correction to Z(*) 


Output parameters: 


w(*) = TDW data 

X(*) - TDX data 

Y(*) - TDY data 

z(*) = TDZ data 

R1(*) - Range 1 data 

R2(*) - Range 2 data 

U$(*) - Time-of-day data 

N - number of samples 

F$ ~ annotated file name. 
F$&"r" = range data corrected 
F$&"t" = TD data corrected 
F$&"rt" = range and TD data corrected. 


User Instructions: 
Prerequisite functions: None 
1. Insert data tape into left hand tape transport. 


2. Press KO. The menu is cleared and "READ DATA FILE” appears on the CRT in 
inverse video. 


3. When "File Name?" appears in display area: 


ae Enter: File name 
b. Press: CONT 


The file is read and the file name and number of samples are printed. 
B-8 


Sarda a ek 


ah i ins int tral et Ri an mt 





4. When "CORRECT RANGE DATA? Y OR N" appears in the display area: 


ae If you want to correct range data: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 5 
or 
b. If you do not want to correct range data: 
(1) Enter: N 
(2) Press: CONT 
(3) wo to Step 7. 


When "CORRECTION TO Rl (METERS)?" appears in display area: 


a. Enter: correction to Range 1 in meters 
b. Press: CONT 


When "CORRECTION TO R2(METERS)? appears in display area: 


a. Enter: correction to Range 2 in meters 
b. Press: CONT 


corrections entered for Range 1 and Range 2 are printed and titled. 
When "CORRECTION TO TDs? Y/N" appears in display area: 
a. If you want to correct TD data: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 8 
b. If you do not want to correct TD data: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 12 


8. The start and stop times for the data collected will be printed. When 
"CORRECTION TO TDW(MICROSEC)?" appears in display area: 


@. Enter: correction to TDW data in microseconds 
b. Press: CONT 


9. When "CORRECTION TO TDX(MICROSEC)?" appears in display area: 


a. Enter: correction to TDX data in microseconds 
b. Press: CONT 


10. When "CORRECTION TO TDY(MICROSEC)?" appears in display area: 


a. Enter: correction to TDY data in microseconds 
b. Press: CONT 
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a. Enter: correction to TDZ data in microseconds 
b. Press: CONT 


The corrections entered for each TD will be printed and titled. 


12. The program function is complete. The function menu is printed on the 


i 11. When "CORRECTION TO TDZ(MICROSEC)?" appears in display area: 
' CRT. | 
| 
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Function: Convert Range Data to XY Positions 
Special Function Key: Kl 
Subprograms: 


Triangle (R, Rb/1000, Rc/1000, A, B, C) 

Position (Zb(*), Alpha, Rc/1000, Sign, B, Zx(I), Zy(1I)) 

Stat_mat (R1(*), R2(*), Zx(*), Zy(*), Stat(*), Cov(*), O Set(*), N) 

Print (Stat(*), 0 Set(*), Cov(*), R(*), N, 2) 

Ct_at (2x(*), zy(*), cee(*), Are(*), Wpt(Wt,5), Wpt(Wt,6), Wpt(Wf,5), 
Wpt(W£,6), N, R, Angle) 

Reg(Stat(*), Cov(*), S(*), R(*), 0 set(*)) 


va nO rinensessioeaslear 


This program function converts Miniranger range data to cartesian xy 
coordinates relative to a local origin. Cross track and along track data are 
also calculated. Trilateration is used to calculate xy position using 
distances measured to two reference stations and the distance between 
reference stations. Cross track and along track position are calculated 
relative to a trackline between two waypoints. 


3 Input parameters: 


Rp$ - position reference file which contains name and xy position of 
reference stations and local grid origin. 
Ref$(*) - names of reference stations and local origin 
R Ref(*) - xy position of reference stations and local origin 
‘a R1(*) = range data to transponder R1 
R2(*)  - range data to transponder R2 


Peso 31 Va 
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File$  - waypoint file name 
j Fl - indicator if waypoint file has been previously read 
U Wt - waypoint to for along/cross track calculation 
Wf - waypoint from for along/cross track calculations 
Wpt(*) - waypoint data array. 
Ctat$ - indicates if cross track and along track position is to be 


calculated. yes = "Y", no - "N" 
Output parameters: 


Zx(*), Zy(*) - position coordinates for each data sample 

A Att(*), Ctt(*) - along and cross track coordinates of each data sample - tt 
Stat(*), Cov(*), S(*), R(*), O Set(*) - statistics arrays which contain 

’ mean, standard deviation, covariance, correlation coefficients and linear 

: B regression parameters for range and position data (see K2). 


Local Variables: 
Zb(*) - Local coordinates of the reference station at the B vertex 


of the triangle formed by the survey vessel and two reference 
stations 


SSE RE ee pa a 


yp. | Ze(*) = Local coordinates of the reference station at the C vertex 
of the triangle formed by the survey vessel and two reference | 
stations. 


R @- Range between reference stations (km) 


| 

| 
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Alpha - azimuth between reference stations 


Point$ - location of Rl transponder 
1 = B vertex 
2 = C vertex 


Location of Rl transponder, B or C 


Normally = 1; if reference station baseline is crossed, change 
to -1 . 


Q Sample number on which the sign is to be reversed 
Rb Side of triangle opposite B vertex (m) 
Re Side of triangle opposite C vertex (m) 


A,B,C - Angles of triangle formed by vessel and two reference stations, 
angles are labeled clockwise from vessel 


User Instructions: 
Prerequisite functions: KO Read Data 


1. Press Kl. The menu is cleared and "CONVERT RANGE DATA TO XY POSITION" 
appears on the CRT in inverse video. 


2. When "POSITION REFERENCE FILE NAME?" appears in display area (tape 
containing position reference file should be in right hand tape drive): 


a. Enter: Position reference file name 
b. Press: CONT 


The file name is printed on the hard copy printer. 


3. The title and position of the reference stations and the local grid origin 
and the range and bearing between reference stations are printed on the CRT. 
When "IS Rl AT POINT B(1) OR POINT C(2)? 1 or 2" appears in the display area: 


a. If the RI transponder was at Point B 


(1) Enter: 1 

(2) Press: CONT 

(3) When "ENTER SIGN, +1 OR -1" appears, enter +1 if ship is above 
reference station base line, -1 if below 

(4) When “DATA SAMPLE TO CHANGE SIGN" appears, enter the number of 
the data sample at which the survey vessel crosses the baseline 


"Rl TRANSPONDER IS AT POINT B" and "CONVERTING DATA" (Blinking) will be 
printed on the CRT display. 


b. If the Rl transponder was at point C: 
(1) Enter: 2 
(2) Press: CONT 
(3) When "ENTER SIGN, +1 OR -1" appears, enter +1 if ship is above 
reference station base line, -1 if below 
B-12 





Ra 
2 Neonat e pare cee et A PPE PRETO a EI SST : 


(4) When "DATA SAMPLE TO CHANGE SIGN" appears, enter the number of 
the data sample at which the survey vessel crosses the baseline 


"R1 TRANSPONDER IS AT POINT C" and "CONVERTING DATA” (Blinking) will be 
printed on the CRT display. 


4. The sample number and the angle A will appear on the display line. When 
the calculations are complete, a table of average ranges and xy position and 
their standard deviations is printed on the hard copy printer. 


6. “Waypoint file?" Will appear on the display line if it had not been 
previously entered 


a. Enter: waypoint file name (tape with waypoint file should be in right 
hand tape drive 
b Press: CONT 


6. When "WAYPOINT TO" appears on the display line: 


a. Enter: Waypoint To 
b. Press: CONT 


7. When "WAYPOINT FROM" appears on the display line: 


a. Enter: Waypoint from 
b. Press: CONT 


8. The program function is complete. The function menu is printed on the CRT. 
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Function: Calculate Statistics and Linear Regression of TD Data 


Special Function Key: K2 
Subprograms: 


Hi_lo (W(*), N, Bw, Lw) 

Stat mat wie), X(*), Y¥(#), Z2(*), Stat(*), Cov(*), O set(*), N) 
Reg (Stat(*), cov(*), S(*), R(*), O set(*)) 

Print (Stat(*), O_set(*), Cov(*), R(*), N, V) 


This program function calculates statistics, linear regression coefficients, 
and minimum and maximum for the four TD arrays. Statistics and regression 
parameters calculated are: 


a. mean for each TD 

b. standard deviation for each TD 

ce covariance of TD pairs 

d. correlation coefficient of each TD pair 

e. linear regression slopes of each TD pair 

f. standard deviation of residuals for each regression line 


Input parameters: 


w(*), X(*), ¥(*), Z(*) - TD arrays 
N ~- number of samples 


Output parameters: 


Stat (*) - Summary statistics array containing sums, sums of squares, 
mean and standard deviation 

O_set(*) - First data sample for each TD 

Cov(*) - Summary statistics array contains sums of cross products, 


covariance, and correlation coefficients of TD pairs 
Bw, Bx, By, Bz - Maximum value for each TD array 
Lw, Lx, Ly, Lz - minimum value for each TD array. 


S(*) - A summary statistics array containing mean and standard 
deviation for each TD pair 
R(*) - An array containing linear regression slope, RMS residuals, 


and definition of the independent variable for each TD pair 
User Instructions: 
Prerequisite functions: KO Read Data 


1. Press K2. The menu is cleared and "STATS AND REGRESSION OF TD DATA" 
appears on the CRT in inverse video. 


2. The file name, start time, stop time, and a tabulation of the statistics 
and linear regression parameters for the TDs and TD pairs is printed on the 
hard copy printer. 


3. The program function is complete. The function menu is printed on the CRT. 
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Function: ~Compare Mini-ranger and Loran-C position data 
Special Function Key: K3 
Subprograms: 


Compar (Pos x(*), Pos_y(*), Zx(*), Zy(*), At(*), Ce(*), Ate(*), Ctt(*), 
F$, N, R) 


This program function compares Loran-C derived position with Mini-renger 
calculated position. Mini-ranger positions are assumed to be "truth" and the 
difference between the Loran-C position and Mini-ranger position is the 
Loran-C position error. Two sets of position errors are calculated, Xy and 
along/cross track. The Xy errors are a direct comparison between Mini-ranger 
and Loran-C derived positions. The Mini-ranger along/cross track position is 
based on the local coordinates of the waypoints. The Loran-C along/cross 
track position is based on the difference in TDs between waypoints. 


The following parameters are calculatred: 


1. average x and y position error 

2. rms x and y position error 

3. average along and cross track error 

4. rms along and cross track error 

5. rms radial error based on xy position errors 

6. rms radial error base on along/cross track errors 


Input variables: 


Pos_x(*) ~ Loran-C derived x position 
Pos_y(*) ~ Loran-C derived y position 


Zx(*) ~ Mini-ranger derived x position 
Zy(*) - Mini-ranger derived y position 
Ct(*) ~ Loran-C derived cross track position 
At(*) ~ Loran-C derived along track position 


Ctt(*)  - Miniranger derived cross track position . 
Att(*) -~ Mini-ranger derived along track position 
N ~ Number of samples 

F$ ~ Data file 

R ~ Range between waypoints 


User Instructions: 


Prerequisite functions: KO - Read Data 
Kl - Convert Range Data to xy Position 
K17 = Convert TD data to xy Position 


1. Press K3. The menu is cleared and "COMPARE MINI-RANGER AND LORAN-C 
POSITIONS" appears on the CRT. 


2. A tabulation of Loran-C position error data will be printed on the hard 
copy printer. 
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3. A plot of x and y errors will appear on the CRT screen. When finished 
viewing the plot, press CONT. 


4. When "HARD COPY" Y OR N" appears on the display line: 


a. If a hard copy of the xy error plot is desired 
(1) Enter: Y 
(2) Press: CONT 
b. If no hard copy is wanted: 
(1) Enter: W 
(2) Press: CONT 


5. A plot of along and cross track errors will appear on the CRT screen. 
When finished viewing the plot, press CONT. 


6. When "HARD COPY? Y OR N” appears on the display line: 


a. If a hard copy of the xy error plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
b. If no hard copy is wanted: 
(1) Enter: N 
(2) Press: CONT 


The program function is complete. The function menu is printed on the CRT. 
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Function: Plot TD Data with Regression Lines 
Special Function Key: KAé 


Subprograms: 


Plot (Lx, Bx, Ly, By, Xaxis, Yaxis, X(*), Y(*), Slope, N, "TDK", “TDY", F$) 


The program function plots two of the time~difference arrays ageinst each 
other and also plots the linear regression line for the TD pair chosen. The 
program automatically scales the plot for the minimum and maximum TDs for each 
' array. The axes are drawn through the mean for each TD. Minor tic marks are 


every microsecond and major tic marks every 10 microseconds, 
| Parameters: 
Plot - TD pair to be plotted 
1 = WX; Z = WY; 3. = WZ; 4 = XY, 5 = XZ, 6 = YZ 
Lw, Lx, Ly, Lz ~ Minimum TD for each array 
Bw, Bx, By, Bz - Maximum TD for each array 


S(*) ~ Statistics summary array containing means and standard deviations for 
each pair to TD arrays 


R(*) ~ Regression summary array which contains slopes of regression lines 


yee ee 
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N - Number of samples 


a es 


F$ - File name 
User Instructions: 
Prerequisite function: KO - Read Data File 
; K2 - Calculate Statistics and Linear 
: Regression of TD Data 


1. Press K4. The menu is cleared and "PLOT TD DATA WITH REGRESSION LINES" 
appears on the CRT in inverse video. 
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2. When "PLOT? WX1, WY2, WZ3, XY4, XZ5, YZ6" appears on the display line: 


a. Enter: 1-6 depending on which plot is desired 
b. Press: CONT 


3. The selected TD data will be plotted on the CRT. When finished viewing 
the plot: 


a. Press: CONT 
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When "HARD COPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
b. If a hard copy is not desired: 
(1) Enter: N 
(2) Press: CONT 


The program function is complete. The function menu is printed on the 
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Function: Plot Residuals 


Special Function Key: K5 


Subprograms: Rplot(Iv(*), D(*), S(*), R(*), Pr, M, V1$, V2$, FS) 
Hi_lo (x(*), MN, Hi, Lo) 


This program function plots the residuals from the linear regression of any TD - 
pair (See K2). The residuals may be plotted against sample number or the 
independent variable. Residuals are normalized to the standard deviation of 
the residuals. Normalized values greater than 5 are printed on the hard copy 
printer and are not plotted. 


Variables: 


we), X(*), ¥(*), Z(*) - TD data arrays 

' S(*) - Statistics summary array 

R(*) = Regression summary array 

Pr ~ TD pair for which residuals are being plotted: 1 = WX, 2 = WY, 3 = WZ, 
4 = XY, 5 = XZ; 6 = YZ 

N - Numbers of Samples 

V1$, V2$ - Names of two TDs for which residuals are being plotted, i.e. 

"Tpy", "Tpx" , etc. 
F$ - Data file name 





User Instructions: 


Prerequisite functions: 
KO - Read Data 
K2 - Calculate Statistics and Linear Regression of TD Data 


1. Press K5. The menu is cleared and "PLOT RESIDUALS" is printed on the CRT 
in inverse video. 


2. When "PLOT? WX1, WY2, WZ3, XY¥4, XZ5, YZ6" appears on the display line: 


| 
} 
| 
| a. Enter: 1-6 depending on which plot is desired 
: | b. Press: CONT 
| 
' 
: 
| 


3. When "PLOT RESIDUALS VS N(1) OR INDEPENDENT VAR(2)?" appears on the 
display line: 


a. To plot the residuals vs sample number: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to: Step 4 
b. To plot the residuals vs the independent variable: 
(1) Enter: 2 
(2) Press: CONT 
(3) Goto: Step 4 


4. The normalized residuals for the selected TD pair regression line will be 
plotted on the CRT. When finished viewing the plot: 


a. Press: CONT 
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When "HARD COPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 

b. If no hard copy of the plot is desired: 
(1) Enter: N 
(2) Press: CONT 


The program function is complete. The function menu is printed on the CRT. 
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Function: Edit Data 


Special Function Key: K16 
Subprograms: ‘ 


Delete (W(*)), X(*), ¥(*), Z(*), R1(*), R2(*), U$(*), N, F$) 
Delete blok (w(*), X(*), Y(*), Z(*), R1(*), R2(*), U$(*), N, F$) 
Delete_td (W(*), X(*), Y¥(*), Z(*), R1(*), R2(*), U$(*), N, FS) 
Delete rg (W(*), X(*), Y(*), Z(*), R1(*), R2(*), U$(*), N, F$) 
Store(W(e), x(*), ¥(#), ZC), RICH), R2C*), US(*), N, FS) 


This program function is used to edit (i.e. remove) samples from the data 
arrays. Four options are available to the user: 


a. The first option deletes a single data sample in each data array. 
b. The second deletes a block of data samples. 
' c. The third deletes samples with TD samples outside a range that is 
input by the operator. 
d. The fourth deletes samples with outliers in the range data. The 
routine compares each range with the average of the previous and next sample. 
| If there is a difference of more than 100 meters, the sample is deleted. 
Unfortunately, this technique usually deletes the outliers and the sample on 
each side of the outlier. This is normally not a significant problem, i.e. 
nine samples will be deleted rather than three. The alternative is to detect 
the outliers and the corresponding sample number using the Plot XY Position 
| function (K18) and use the single sample delete option. 


a 


When editing of the data arrays is complete, the operator may store the edited 
data on a new file for later use. 





i 


i NOTE: The edit function deletes only data samples. Arrays containing XY and 
, along/cross track position data are not affected. Functions Kl and K17 must 
be repeated to reflect the result of this editing on the computed positions. 


Paramaters: 
 ! Edit - Indicates which edit subroutine is to be used. 
- delete sample by sample 
- delete block of samples 


- delete samples with TD values outside limits determined by operator 
- delete samples with range outliers 


ees 2 


fF wn ee 


wW(*), X(*), ¥(*), Z(*), RIC*), R2(*), U$(*) - Data arrays i 
N - Number of samples 
F$ - Data file name 


User Instructions: , i 
i Prerequisite functions: 


KO: Read Data 

| Optional: Several other program functions may be run prior to the Edit 
' function to determine which data samples are to be edited, 

; ecBe K2, K4, K5, Kl, K18 
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1. Press: K16. The menu is cleared and "EDIT DATA” appears on the CRT in 
inverse video. 


2. When "SINGLE LINE], BLOCK2, TD~CLIP3, OR RANGE4?" appears on the display 
line: 


a. If you want to delete samples one at a time: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 3 
b. If you want to delete a block(s) of samples: 
(1) Enter: 2 
(2) Press: CONT 
. (3) Go to Step 8 
i c. I£ you want to delete samples outside a set of TD bounds: 
: (1) Enter: 3 
(2) Press: CONT 
(3) Go to Step 11 
d. If you want to delete outliers in the range data: 
(1) Enter: 4 
(2) Press: Cont 
(3) Go to Step 15 


e. If you want to continue without any editing: 
(1) Press: CONT without entering any number 
(2) Go to step 5 


3. When "SAMPLE TO BE DELETED? START WITH HIGHEST NUMBER" appears on the 
display line: 





a. Enter: Sample number 
b. Press: CONT 





pat The sample deleted and the number of samples remaining are printed on the hard 
+! copy printer. 


| 4. When "ANOTHER SAMPLE TO DELETE?" appears in the display area: ‘ 


t a. Enter: Y(if another sample is to be deleted) or N 
bt b. Press: CONT 
i c. If another sample is to be deleted, go to Step 3. 


5. When “EDIT MORE DATA? Y or N" appears in the display area: 


a. if more data editing is desired: 
(1) Enter: Y 

a (2) Press: CONT 

| (3) Go to step 2 


. b. if no more editing is to be performed: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to step 6 
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6. When "LIST DATA?" appears in the display area: 


a. If a listing of the data is desired: 

(1) Enter: Y 

(2) Press: CONT. The data is printed on the hard copy printer. 
b. If a listing of the data is not desired: 

(1) Enter: N 

(2) Press: CONT 


7. When “STORE EDITED DATA?" appears in the display area: 
a. If you want to store the data 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 8 
b. If you do not want to store the data 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 16 


8. Insure that a tape cartridge is loaded into the left hand tape drive. 
When "FILE NAME?" appears on the display area: 

a. Enter: File name 

b. Press: CONT 

ce Go to Step 16 


9. When "FIRST SAMPLE IN BLOCK?" appears in the display area (if more than 
one block is to be deleted, delete the block with the higher sample numbers 
first. The array is renumbered after each edit.) 


a. Enter: First sample 
b. Press: CONT 


10. When "LAST SAMPLE IN BLOCK TO BE DELETED" appears in the display area: 


a. Enter: Last sample 
b. Press: CONT 


The block of samples deleted and the numbers of samples remaining are printed 
on the hard copy printer. 


11. When "ANOTHER BLOCK TO BE DELETED?" appears in the display area 


a. If there is more data to be deleted 
(1) Enter: Y 
(2) Press CONT 
(3) Go to Step 9 

b. If no more data is to be deleted 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 5 


12. When "CLIP LIMITS FOR WHICH, SECONDARY? W1, X2, Y3, 24" appears in the 
display area: 

a. Enter: 1 through 4 to select the secondary to test for clip 

b. Press: CONT 
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13. "SETTING CLIP LIMITS FOR ( )" will be printed and "CLIP LIMITS? MIN,MAX" 
will appear in the display area: 

a. Enter: minimum TD, maximum TD 

b. Press: CONT 


The number of samples deleted and number of samples remaining are printed on 
the hard copy printer. 


14. When "SET ADDITIONAL CLIP LIMITS?" appears in the display area: 


a. If more clip limits are to be set: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to step 12 


b. If no more clipping is to be performed: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to step 5 


15. The program will delete what it determines to be range outliers. 
Generally an outlier and the sample before and after it will be deleted. The 
samples deleted, the total number of samples deleted, and the remaining number 
of samples is printed on the hard copy printer. 

a. Go to Step 6 


16. The program function is complete. The program menu is printed on the CRT. 
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Function: Convert TD Data to XY Position 
Special Function Key: X17 
Subprograms: 


Cart_coord (Xmit(*), Wpt(25,7), Wpt(25,8), Zxmit(*)) 

Rb (Wpt(Wt,5), Wpt(Wt,6), Zmit(I,1), Zxmit(1,2),Bear(I), Range (1)) 

G_mat (Power(*), V, Range(*), Bear(*), Zp(*), Aa(*), G123(*), G12(*), 
G23(*), G13(*)) 

Wp3 (Wpt(*), Conf, Wt, Tp(*), Zpp(*), L$) 

Td3 (W(*), X(*), ¥(*), Z(*), I, Conf, Tq(*)) 

Fehg (Zxmit(*), Zpp(*), Tp(*), Tq(*), G123(*), Zq(*), V, Nesta) 

Wp2 (Wpt(*), Conf, Wt, Tpp(*), Pair, Zpp(*), G12(*), G23(*), G13(*), G(*), 
L$, Zxmit(*), Zxm(*)) 

Td2 (W(*), X(*), ¥(*), Z(*), I, Conf, Pair, Tqq(*)) 

Wpf2 (Wpt(*), Conf, Pair, Wf, Tqq(*) 

Ct_at (Pos_x(*), Pos_y(*), Ct(*), At(*), Wpe(We,5), Wpt(Wt,6), Zq(1,1), 
Zq(2,1), N, R, Angle) 

Stat_mat (Pos x(*), Pos y(*), Ct(*), At(*), Stat(*), Cov(*), O set(*), N) 

Reg (Stat(*), Cov(*), S(*), R(*), O_set(*)) 

Track (Stat(*), O_set(*), Cov(*), R(*), Sample, F$, Wt, Wf, Angle, N) 

Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R*, Plat, Plon) 


This program function converts Td data to xy and along/cross track positions 
using the Flat Earth Hyperbolic Grid (FEHG) algorithm and surveyed waypoints. 
The program will compute either a three or two TD solution. A summary table 
is printed on the hard copy printer which lists: 


-chain and LOPs used in the solution 

-file name 

~-bearing angle between waypoints used for along/cross track calculation 
- rms trackline of data 

~average cross track position 

-standard deviation of cross track position 

“average xy position 

-standard deviation of xy position data 


Function Parameters: 


Chain$ ~ Loran-C transmitting chain file which contains transmitter positions, 
power, and emission delays. The convention for naming chain files is a 
four letter code followed by a number from 1 to 4, eg NEUS1. The number 
rege the three secondaries utilized: 1 = XYZ, 2 = WXY, 3 = WXZ, 

= WYZ. 

Cl - Flag which is set when the Loran-C chain file is read 

Pos_x(*), Pos_y(*) - x and y position arrays 

At(*), Ct(*) = Along and cross track position arrays 

Xmit(*) - Transmitter geodetic positions 

Power(*) - Transmitter power levels 

Emis(*) - Secondary transmitter emission delays 

Fl - Flag to indicate when the waypoint file is read 
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File$ ~ Waypoint file name 
Wpt(*) - Waypoint data array 
Zxmit(*) - Transmitter xy positions referenced to local origin (Wpt(25,7), 
Wt - Waypoint used ss reference for TD to Xy calculations 
WE - Waypoint used for along/cross track calculations to Wt 
Bear(*) - Bearings from waypoint to transmitters 
Range(*) ~ Ranges from waypoint to transmitters 
Zp(*) - XY position of waypoint 
V - Velocity of propagation 
Aa(*) - Gradient matrix, xy to TD 
G123(*) ~ Three Td gradient matrix, TD to XY 
G12(*), G13(*), G23(*) ~ Two TD gradient matrices, TD to XY 
Conf - Chain configuration 1 = XYZ, 2 = WXY, 3 = WKZ, 4 = WYZ 
Ch$ - Abbreviation of chain, eg first four characters of chain$ 
So - Indicates two or three solution: 2 * 2-TD, 3 = 3-TD 
L$ ~ LOPs used in TD to XY calculation, eg XYZ, YZ, WX, etc. 
w(*), X(*), ¥(*), Z(*) ~ TD data arrays 
Zq(*) - XY position solution 
Tq(*) - 3-TD sample 
TQQ(*) - 2-TD sample 
Zpp(*) ~ XY position of waypoint 
Tp(*) - 3-TD waypoint 
Tpp(*) = 2-TD waypoint 
Zxx(*) - Dummy position array 
Pair ~ LOP pair used for TD to xy calculation 
If Conf = 1; 1 = XY, 2 = XZ, 3 = YZ 
If Conf = 2; 1 = WX, 2 = WY, 3 = XY 
If Conf = 3; 1 = WX, 2 = WZ, 3 = YZ 
If Conf = 4; 1 = WY, 2 = WZ, 3 = YZ 
G(*) = 2TD G matrix used in 2TD solution 
Zxmit(*) ~- Transmitter xy positions 
R - Distance between "TO" and "FROM" waypoints 
Stat(*), Cov(*), 0 set(*), S(*), R(*) - Arrays containing summary statistics 
of xy and along/cross track position 
Nesta - Number of secondary stations used in the FEHG computations 


User Instruction: 
Prerequisite instructions: Read Data, KO 


1. Press K17. The menu will be cleared and "CONVERT TD TO XY" will appear on 
the CRT in inverse video. 


2. When "CHAIN CONFIGURATION? " appears on the display line: 


(1) Insure that the tape cartridge containing chain data is 
in the right hand tape drive. 

(2) Enter: Chain file. Note: Chain files have five character 
names. The first four characters denote the chain, eg NEUS, 
SEUS, WCUS. The number following the characters denotes the 
secondaries, eg: 1 © XYZ, 2 = WXY, 3 = WkZ, 4 = WYZ 

(3) Press: CONT 


B-26 








NOTE: Chain configuration data is only read once. The data is stored in 
memory for further use. To change chain configuration either: 


a. Press: STOP ‘ 
b. Press: RUN. This clears data memory and "CHAIN CONFIGURATION” will be 
requested as above. All other data in memory will also be cleared. 
oO 


a. Enter: Cl = 0 
b. Press: EXECUTE. This clears the flag, Cl, which will cause the 
program to branch through the "CHAIN CONFIGURATION?" statement. 


When "WAYPOINT FILE NAME?" appears in the display area: 


a. Insure that the tape cartridge containing waypoint data is 
in the right hand tape drive. 

b. Enter: Waypoint file 

ce Press: CONT 


NOTE: Waypoint file data is read only once. The data is stored in memory for 
further use. 


To change the waypoint file: 


ae Press: STOP 
b. Press: RUN. This clears data memory and "WAYPOINT FILE" will be 
requested as above 
OR 
a. Enter: Fl = 0 
b. Press: EXECUTE. This clears the flag Fl which will cause the program 
to branch through the "WAYPOINT FILE?" statement. 


When "WAYPOINT TO?" appears in the display area: 


a. Enter: Waypoint number. NOTE: If a comparison of Mini-ranger and 
Loran-C position data is to be made, insure that "TO" and "FROM" 
waypoints are consistent. Conversion waypoint is "TO" waypoint. 

b. Press: CONT 


When "WAYPOINT FROM?" appears in the display area: 


a. Enter: Waypoint number. See Note above 
b. Press: CONT 


When “TWO OR THREE SOLUTION?" appears in the display area: 


a. If a two TD solution is desired: 
(1) Enter: 2 
(2) Press: CONT 
(3) “TWO TD SOLUTION, CHAIN = is printed 
the hard copy printer. 
b. If a three TD solution is desired: 
(1) Enter: 3 
(2) Press: CONT 
(3) “THREE TD SOLUTION, CHAIN = LOPS = " is printed on 
the hard copy printer. 
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7. The sample number is displayed in display area as the program sequences 
through the data arrays. When the calculations are complete, a summary table 
is printed on the hard copy printer which contains: 


a. data file name 

b. bearing angle between waypoints 

ce rms trackline of data 

d. average cross track position 

e. standard deviation of cross rack position 
f. average x,y position 

g- standard deviation of xy position data 


The program function is complete. The function menu is printed on the CRT. 
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Function: Plot XY Data 
Special Function Key: K18 
Subprograms: 


Hi_lo (Pos_x(*), N, Maxx, Minx) 

mule Ae Pos_x(*), Pos_y(*), Minx, Maxx, Miny, Max, y, N, No, F$, Ch$, 
Lg, Pl 

X_errplot (1, Zx(*), Zy(*), Pos_x(*), Pos_y(*), Minx, Maxx, Miny, Maxy, N) 


The program function plots the xy data calculated from Loran~C TDs and/or 
Mini-ranger data. Four options are available: 


1. Mini-ranger data only 

2. Loran~-C data only 

3. Mini-ranger and Loran-C data 
4. Error plot 


The first two options allow the operator to blow-up a section of the plot, to 
find the sample numbers of outliers, and to digitize up to 10 locations on the 
plot. A hard copy option is provided with all four plots. The “Error plot" 
plots a vector at each sample. The tail of the vector is the mini-ranger 
position fix; the head (denoted by a "o") is the Loran-C position fix. 


Function parameters: 


Pos_x(*), Pos _Y(*) - xy position calculated from Loran-C data 

zx(*), Zy(*) - xy position calculated from Mini-ranger data 

Minx, Miny - Minimum x and y positions 

Maxx, Maxy - Maximum x and y positions 

T - Line type 

N - Number of samples 

No - Denotes first or second time data is being plotted 

Ch$ - Loran-C chain, eg NEUS, SEUS, etc. 

L$ - Loran-C LOPs, eg XY, WX, etc. 

Pl - Plot: 1 = Mini-ranger, 2 = Loran-C, 3 = Mini-ranger and Loran-C, 
4 = Error Plot 


User Instructions: 
Prerequisite functions: KO, Kl, and Kl7 
1. Press K18: The menu is cleared and "PLOT XY DATA" is printed on the CRT. 


2. When “MINI-RANGER 1, CONVERTED LORAN-C2, BOTH3, OR ERROR PLOT4?" appears 
on the display line: 


a. For a plot of Mini-ranger fixes: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 3 
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b. For a plot of Loran-C fixes: 
(1) Enter: 2 
(2) Press: CONT 
(3) Go to Step 3 
c. For a plot of both Loran-C and Mini-ranger fixes: 
(1) Enter: 3 
(2) Press: CONT 
(3) Go to Step 11 
d. For an error plot: 
(1) Enter: 4 
(2) Press: CONT 
(3) Go to Step 12 


3. The xy data is plotted on the CRT. After viewing the plot: 
a. Press: CONT 


4. When "ZOOM: Y OR N" appears on the display line: 
a. To blow up a section of the plot: 
(1) Enter: Y 
(2) Press: CONT 
b. If a “zoom" or further "zoom" is not wanted 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 6 





: | 5. When the cursor appears on the CRT, place it at the lower left-hand corner 
2 of the area of the interest using the four directional arrow keys and press 
f) 4. CONT. When the cursor reappears, position it at the upper right hand corner 
: of the area of interest and press CONT. The selected area is replotted on the 
My CRT. 

Go to Step 3 


NOTE: The "zoom" may be repeated several times. 


6. When "FIND SAMPLE NUMBER AND VALUE OF PLOTTED DATA POINT?" appears on the 
» | display line: 


a. If the sample number of a point on the plot is desired: 
aa (1) Enter: Y 
: (2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 8 


7. When the cursor appears on the CRT: 


ae Center it on the point of interest 
b. Press: CONT 


The sample number and coordinates will be printed on the CRT. If no data is 
printed, try repositioning the cursor closer to the point of interest or 
replot the data and use "zoom" to blow up the area around the point of 


interest. 
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ce Go to Step 6 
8. When "DIGITIZE?" appears in the display area: 


a. If you want to digitize 1-10 points on the plot: 
(1) Enter: Y 
(2) Press: CONT 
b. If nots 
(1) Enter: N 
(2) Press: CONT . 
(3) Go to Step 10 


9. When "HOW MANY? 10" appears in the display area: 


a. Enter: the number of points to be digitized 
b. Press: CONT 


When the cursor appears on the CRT, center it over a point of interest and 


c. Press: CONT 


: 


A plus sign (+) will appear over the data point and the number of points 
digitized (1-10) will appear to its right. Continue the procedure until the 
number of points to be digitized is complete. A list of the digitized point 
coordinates is printed on the hard copy printer. 





d. Go to Step 13 


10. The plot will reappear on the CRT. When finished viewing the plot press 
CONT. 


11. The Loran-C and Mini-ranger data converted to xy position is plotted on 
the CRT. The Mini-ranger data is the solid line. The Loran-C data is the 
dotted line. 


Go to Step 13 


12. The Loran-C and Mini-ranger xy data is plotted on the CRT in the form of 
a vector. The tail of the vector is the Mini-ranger position, the head is the 
Loran-C position which is marked with an "o." 


13. When "HARDCOPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
; b. If not: 
aan (1) Enter: N 
: (2) Press: CONT 





14. The function is complete. The function menu is printed on the CRT. 
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Function: Plot Along/Cross Track Data — 


Special Function Key: K19 
Subprograms: 


Hi_lo (Ct(*), N, Maxc, Minc) 
Patct (at(*), Ct(*), N, Mina, Maxa, Minc, Maxc, Wt, Wf, F$, R, No, Data) 


This program function plots cross track vs along track position. Three 
options are available: 


1. Mini-ranger data 
2. Loran-C data 
3. Mini-ranger and Loran-C data 


The plots are automatically scaled and labeled. 
Function parameters: 


At(*), Cte(*) - Along and cross track position arrays calculated from 
Loran-C data 

Att(*), Ctt(*) - Along and cross track position array calculated from 
Mini-ranger data 

N - Numbers of samples 

Maxc, Maxcc - Maximum cross track distance 

Minc, Mincc - Minimum cross track distance 

Maxa, Maxaa - Maximum along track distance 

Mina, Minaa - Minimum along track distance 

Wt - Waypoint to 

WE - Waypoint from 

R = Distance between waypoints 

F$ - File name 

Data - Plot option: 1 = Mini-Ranger, 2 = Loran-C, 3 = Mini~Ranger and 

Loran-C 


User Instructions: 


Prerequisite function: Kl and/or K17 


1. Press K19. The program menu is cleared and "PLOT ALONG TRACK CROSS TRACK 
DATA“ is printed on the CRT in inverse video. 


2. When "MINIRANGER1, LORAN-C2, OR BOTH3? 1, 2 OR 3" appears in the display 
area: 


a. If a plot of the along/cross track positions computed from Mini-ranger 
data is desired: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 3 
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b. If a plot of along/cross track positions computed from Loran-C data is 
desired: 
(1) Enter: 2 
(2) Press: CONT 
(3) Go to Step 3 
c. If a plot of cross/along track positions computed from both 
Mini-ranger and Loran-C is desired: 
(1) Enter: 3 
(2) Press: CONT 
(3) Go to Step 3 


3. The elong/cross track data selected is plotted on the CRT. When finished 
viewing the plot: 


a. Press: CONT 
4. When "HARD COPY? Y OR N" appears in the display area: 
a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 


(1) Enter: N 
(2) Press: CONT 


5. This function is complete. The function menu is printed on the CRT. 
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Function: Predict TD 
Special Function Key: 


Subprograms: 


Range (Lat, Lon, Xmit(I,1), Xmit(1,2), Range (1)) 

Bear (Lat, Lon, Xmit(I,1), Xmit(I,2), Bear(I)) 

Td (Range(*), V, Emis(*), Td(*)) 

G_mat(Power(*), V, Range(*), Bear(*), Zp(*), Aa(*), G123(*), G12(*), 
G23(*), G13(*)) 


This program function calculates predicted TDs for an input latitude, 
longitude. The program also outputs range and bearing to transmitter stations 
and GDOPs for the three TD and two TD fixes. 


Function Variables: 


Cl - Chain flag indicates if chain data has been read into memory 

Chain$ - Chain name 

Xmit(*) - Transmitter positions (latitude, longitude) 

Power(*) ~ Transmitter power 

Emis(*) - Secondary emission delays 

P$ - Indicates input position is a waypoint 

Fl -- Waypoint table flag, indicates waypoint table has been 
read into memory 

Wpt(*) - Waypoint table 

Lat,Lon - Latitude and Longitude of position of interest 

D,M,S - Degrees, Minutes, Seconds 

Range (*) - Ranges to transmitters 

Bear(*) - Bearings to transmitters 

Td(*) - Predicted TDs 

Aa(*) - Gradient matrix; xy to TD 

G123(*) - Three TD gradient matrix; TD to XY 

G12(*), G13(*), G23(*) - Two TD gradient matrices, TD to XY 

Gdop 123 ~ Three TD Geometric Dilutin of Precision (GDOP) 

Gdop12, Gdopl13, Gdop23 - Two TD GDOPs 

Ch$ - Chain abbreviation, eq NEUS = North East United States 

Conf - Indicates three TD configuration: 1 = XYZ, 2 ™ WXY, 3 = WXZ, 
4 = WYZ 


User Instructions: 
Prerequisite functions: None 


1. Press K20. The program menu is cleared and "TD PREDICTION” is printed on 
the CRT in inverse video. 


2. When “CHAIN FILE?" appears in the display area: 


(1) Insure that the tape cartridge containing chain data is in the 
right hand tape drive 
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Enter: Chain file. Note: Chain files have five character 
names. The first four characters denote the chain, eg NEUS 
SEUS, etc. The number following the character denotes the 
secondaries, eg 1 = XYZ, 2 = WXY, 3 = WXZ, 4 = WYZ 

(3) Press: CONT 


Note: Chain configuration data is read only once. The data is stored in 
memory for further use. To change chain configuration either: 


a. Press: STOP 
b. Press: RUN. This clears data memory and "CHAIN FILE" will be 
requested as above. All other data in memory will also be cleared 
OR 
a. Enter: Cl = 0 
b. Press: EXECUTE. This clears the flag Cl which will cause the 
program to branch through the "CHAIN FILE” statement. 


3. When "IS POINT OF INTEREST ON WAYPOINT FILE? Y OR N" appears in the 
display area: 


a. I£ the point of interest is on the waypoint file: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 6 


When "WP FILE NAME?" appears on the display line (see Note below) 


a. Insure that the tape cartridge containing waypoint data is in the 
right hand tape drive 

b. Enter: Waypoint file name 

ce Press: CONT 


Note: This step is skipped on successive runs of this program function or if 
the waypoint file has been read during a previous function. 


5. When "WAYPOINT NO.?" appears on the display line: 
a. Enter: the waypoint of interest 


b. Press: CONT 
ce Go to Step 8 


When "INPUT LAT IN DEGREES, MIN, SEC" appears on the display line: 
a. Enter: Latitude of position of interest (Degrees, Minutes, Seconds). 


The program assumes North latitude 
b. Press: CONT 


When "INPUT LON IN DEGREES, MIN, SEC" appears on the display line: 


a. Enter: Longitude of position of interest (Degrees, Minutes, Seconds). 
The program assumes West longitude 
b. Press: CONT 
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The program calculates and prints the following parameters: 





a» Predicted time differences. (If a waypoint is selected, surveyed 
TDs are also listed.) 

b. Ranges and bearings to transmitters 

c. GDOPs for the three TD and each of the two TD combinations. 








9. The program function is complete. The program menu is printed on the CRT. 
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Function: 


Special Function Key: 


Subprograms: 


Calculate TD Grid Warp 


K21 


Cart_coord (Xmit(*), Wpt (25,7), Wpt (25,8), Zxmit(*)) 

Warp (X(*), ¥(*), Z(*), Zx(*), Zy(*), Zp(*), T(*), Zxmit(*), V, N, Att(*), 
R, Wt, Wf, Conf, F$) 

T_errplot(A(*), B(*), C(*), At(*), R, N, Conf, We, Wf, F$) 


This program function calculates the difference between measured TDs and TDs 
This difference is termed "TD grid warp" 
and is basically a measure of the change in Additional Secondary Phase Factor 


projected from a nearby waypoint. 


(ASF) over the area where data was collected. 
waypoint to the measurement point based on the difference between the measured 


and waypoint positions. There is a small error in the calculation due to use 


TDs are projected from the 


of a flat earth model for transmitter locations. This error is typically less 


than 40 nanosec within 12KM of the waypoint. 


Function parameters: 


1. 


CRT in inverse video. 


2. 


wW(*), X(*), Y(*), Z(*) - TD data arrays 


T(*) - Waypoint TDs 


Xmit(*) - Transmitter geodetic coordinates 


Zxmit(*) - Transmitter xy position referenced to local origin 


Wpt(*) - Waypoint table 

Zp(*) - Waypoint position 

V - Velocity of propagation 

Zx(*), Zy(*) - Measured position arrays 


N - Number of samples 
Att(*) - Along track distance array 


R - Range between waypoints 
Wt, Wf - Waypoint to and Waypoint from 


Conf - Chain configuration; 1 = XYZ, 2 = WXY, 3 = WXZ, 4 = WYZ 
F$ - Data file name 


Prerequisite functions: 
(1) Read Data; KO 


User Instructions: 


(2) Edit Data; K16 (optional) 
(3) Convert Range Data to XY Position; Kl 


Press K21. 


If "CHAIN FILE?" 


(1) 


(1) 


The menu is cleared and "CALCULATE GRID WARP" appears on the 


Enter: 
Insure 
in the 
Press: 


appears in the display line: 


Five character chain neumonic (eg NEUS1, GILK1, etc.)-. 
that the tape cartridge containing the waypoint file is 


right hand tape drive. 


CONT 
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3. The program function uses the "waypoint to" used for along/cross track 
calculations in function Kl as the reference waypoint. The mean and standard 
deviation of the TD errors for each TD is printed on the hard copy printer. A 
plot of the smoothed TD errors for each TD is plotted on the CRT. After 
viewing the plot: 


a. Press: CONT 
4. When "HARD COPY? Y OR N" appears on the display line: 


a. If a hard copy of the plot is desired: 
(1) Enter: Y 
(2) Press: CONT ie 
b. If not : 
(1) Enter: N 
(2) Press: CONT 


5. The function is complete. The CRT is cleared and the function menu is 
printed on the CRT. 
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Function: Daisy Chain 
Special Function Key: K22 
Subprograms: 


Cart_coord (Xmit(*), Wpt(25,7), Wpt(25,8), Zxmit(*)) 

Rb(Wpt(Rw,5), Wpt(Rw,6), Zumit(I,1), Zxmit(1,2), Bear (1), Range (1)) 

G_mat (Power(*), V, Range(*), Bear(*), Zp(*), Aa(*)), G123(*), G12(*), 
G23(*), G13(*)) 

Wp2 (Wpt(*), Conf, Rw, Tpp(*) Pair, Zpp(*), G12(*), G23(*), G13(*), G(*), 
L$,Zxmit(*), Zxm(*)) 

Wpf2 (Wpt(*), Conf, Pair, Iw, Tqq(*)) 

Wp3 (Wpt(*), Conf, Rw, Tp(*), Zpp(*), L$) 

Fehg (Zxmit(*), Zpp(*), Tp(*), Tq(*), G123(*), Zq(*), V, Nesta) 

Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R*, Plat, Plon) 


This program function calculates the position of a waypoint based on the 
difference in TDs between it and a neighboring waypoint. The Flat Earth 
Hyperbolic Grid (FEHG) is used to calculate position coordinates. 
Differential xy coordinates, differential latitude and longitude, and range 
and bearing between waypoints is also calculated. The user has the option of 
inserting the calculated xy coordinates (and latitude longitude) into the 
waypoint table, Wpt(*). Note: This function does not restore the new 
waypoint table in magnetic tape. If this is desired, function K23 must be 
used. 


Function variables: 


Cl - Status variable which indicates if chain data has been read into 
memory 

Fl - Status variable which indicates if the waypoint table has been 
read into memory 

Chain$ - Chain file 

Xmit(*), Power(*), Emis(*) - Chain variables; geodetic coordinates, power 
levels, and emission delays 

Conf - Chain configuration 

Ch$ - First four characters of Chain$ 

Wpt(*) - Waypoint table 

Zxmit(*) - Transmitter xy coordinates referenced to local origin (three 
TD case) 

Rw - Reference waypoint (start) 

Iw - Waypoint of interest (stop) 

Bear(*), Range(*) - Bearings and ranges to transmitters 

Zpp(*), Zp(*) - Reference waypoint position 

V = Velocity of propagation 

Aa(*), G123(*), G12(*), G13(*), G23(*) - gradient matrices 

Zxm(*) - Transmitter xy coordinates referenced to local origin 

(two TD case) 
So - Indicates two or three TD solution of FEHG 
Tpp(*), Tp(*) - Two and three TD waypoints (start) 
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Tqq(*), Tq(*) - Two and three TD waypoints (stop) 

Nata - Number of secondary stations used in FEHG computations 
Pair - TD pair (two TD case) 

G(*) = Gradient matrix associated with TD pair (Pair) 

L$ - Lops e.q. "XYZ," "XY," "XZ," etc. 

Zq(*) - Waypoint of interest x, y position 

Zxx(*) - Dummy position array 

Dx, Dy - Difference in xy position of waypoints 

Dlat, Dlon ~ Difference in latitude, longitude of waypoints 
Lat, Lon - Computed latitude, longitude of waypoint 

A ~ Angle between waypoints 

R - Range between wayopints 


User Instructions: 


Prerequisite functions: assumes a waypoint file has been created and it 
contains TDs for the two waypoints and xy positions for the reference waypoint. 


1. Press K22. The program menu is cleared and "DAISY CHAIN" appears on the 
CRT in inverse video. 


2. If “CHAIN FILE?" appears in the display line: 


(1) Enter: Five character chain file (e.g. NEUS2, GTLK1, etc.) 
Insure that the tape cartridge containing the file is in the 
right hand tape drive. 

(2) Press: CONT 


If "WP FILE?" appears in the display area: 


a. Enter: Waypoint file name. Insure that the tape cartridge containing 
the waypoint file is in the right hand tape drive. 
Press: CONT 


When "INPUT START WAYPOINT NO." appears in the display area: 


a. Enter: Start or reference waypoint 
b. Press: CONT 


When "END WAYPOINT" appears in the display area: 


a. Enter: Waypoint of interest 
b. Press: CONT 


When "TWO OR THREE TD SOLUTION, 2 OR 3" appears in the display area: 


a. If a three TD solution is desired: 
(1) Enter: 3 
(2) Press: CONT 
(3) Go to Step 8 
b. If a two TD solution is desired 
(1) Enter: 2 
(2) Press: CONT 
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7. When “INPUT TD PAIR; XYl1, XZ2, XY3" appears in the display area: 
(The choice of TD pairs depends on the chain configuration, e.g. if Conf = 2, 
the choices are WX, WY, XY) 


a. Enter: Number corresponding to TD pair desired 
b. Press: CONT 


8. A table is printed on the hard copy printer which contains the following 
information: 


a. the chain and lope used to calculate the waypoint position 

b. the number of the waypoint used as the origin of the local grid 

Ce the two waypoints numbers 

d. the differential xy positions and differential latitude, longitude 

e. the angle and range between waypoints 

f. the projected waypoint position coordinates based on the waypoint TDs 
ge the current values of the waypoint position coordinates 


9. When “CHANGE POSITION AND LAT/LON OR WAYPOINT OF INTEREST? Y OR N" 
appears on the display line: : 


a. If you want to change the values 
(1) Enter: Y 
(2) Press: CONT. Note: the values will be changes in the waypoint 
table, but not on magnetic tape. Function K23 must be used to 
restore the table on tape. 
(3) “WAYPOINT TABLE CHANGED" is printed on the hard copy printer. 


10. The program function is complete, The CRT is cleared and the program 
menu is printed. 
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Function: Waypoint File 
Special Function Key: K23 
Subprograms: 

Wpfile (Wpt(*), Fl, File$) 


This program function is used to create waypoint table files and to edit and 
restore waypoint table files. It can also be used to obtain a listing of the 
waypoint table. The waypoint table is a 25X8 matrix. The first four columns 
contain waypoint TD values (TDW, TDX, TDY, TDZ). Columns five and six contain 
the xy position referenced to the local origin. Columns seven and eight 
contain the latitude and longitude in decimal degrees. Waypoint 25 (e.g. row 
25) is designated as the local origin. The latitude and longitude stored in 
this location is used by any program function which calculates the local xy 
coordinates of the transmitters. If the local origin is also one of a 
sequence of waypoints, its parameters will be stored twice, i.e. in row 25 and 
in the row corresponding to its logical waypoint number. 


Function Variables: 

Wpt(*) - Waypoint table 

File$ - Waypoint file name 

Fl - Indicates if the waypoint file name has been previously entered 
User Instructions: 


Prerequisite functions: None 


1. Press K23. The program menu is cleared and "FILE WAYPOINT DATA" appears 
on the CRT in inverse video. 


2. If "WAYPOINT FILE NAME?" appears on the display line: 


ae Enter: File name (6 characters or less) 
b. Press: CONT 


When "DOES THIS FILE CURRENTLY EXIST ON TAPE? Y OR N" appears in the display 
area: 


ce Insure the tape cartridge which contains or is to contain the waypoint 
table is in the right hand tape drive. 
d. If the file currently exists: 
(1) Enter: Y 
(2) Press: CONT 
If not: 
(1) Enter: N 
(2) Press: CONT 
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3. 


When “WAYPOINT NUMBER?" appears in the display area: 


a. Enter: Waypoint number 
b. Press: CONT 


When "INPUT OR CHANGE TDs? Y OR N?" appears in the display area: 


a. If you want to input or change TDs OR if you want to observe the TDs 
currently in the table: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 5 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 6 


When "TDW, TDX, TDY, TDZ?" appears on the display line: 


a. If you want to observe what values are currently stored for the 
waypoint selected : 
(1) Press: CONT 
The current values will be printed on the hard copy printer. 
b. If you want to enter new values or change an old value: 
(1) Enter: Td values for TDW, TDX, TDY, and TDZ separated by commas. 
All TDs must be entered. If a value is unknown (or a don't 
care), enter a 0 in the proper location. 
(2) Press: CONT 
The TD values entered will be printed on the hard copy printer. 
Errors can be corrected in step 10. 


When "INPUT OR CHANGE XY POSITION? Y OR N" appears on the display line: 


a. If you want to input or change the waypoint xy position OR observe the 
current value: 
(1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 7 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 8 


When "XY POSITION? E,N" appears in the display area: 


a. If you want to observe the current value: 

(1) Press: CONT 

The waypoint xy position is printed on the hard copy printer. 
b. If you want to change or store new data: 

(1) Enter: X position, Y position in kilometers 

(2) Press: CONT 

The waypoint xy position is printed on the hard copy printer. 
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9. 


10. 


11. 


12. 


13. 


When "INPUT OR CHANGE LAT/LON?" appears on the display line: 


a. If you want to input or change the waypoint latitude and longitude 
OR observe the current values: 
“T1) Enter: Y 
(2) Press: CONT 
(3) Go to Step 9 
b. Tf not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 10 


When "LAT,LON?" appears on the display line: 


a. If you want to observe the current value in the table 
(1) Press: CONT 
The waypoint latitude and longitude are printed on the hard copy 
printer. 
b. If you want to input or change the waypoint latitude and longitude 
(1) Enter: Latitude, longitude. Units are degrees, minutes, seconds 
North latitude and West longitude are positive. 
(2) Press: CONT 


When "ANOTHER WAYPOINT? Y OR N" appears on the display line: 
Ae ae want = enter data for another waypoint OR correct data entered: 
Enter: 


be Press: cons 

(3) Go to Step 3 
b. If not: 

(1) Eater: WN 

(2) Press: CONT 


When "LIST WAYPOINT FILE? Y OR N" appears on the display line: 


a. If you want a listing of the waypoint table: 
(1) Enter: Y 


(2) Press: CONT 

The waypoint table is printed on the hard copy printer. 

b. If not: 
(1) Enter: N 
(2) Press: CONT 


When "FILE DATA?" appears on the dispiay line: 


a. If you want to store or restore the waypoint table on magnetic tape. 
(1) Insure the tape cartridge used to store the waypoint is in the 
right hand tape drive 
(2) Enter: Y 
(3) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 





The program function is complete. The CRT is cleared and the program 


menu is reprinted. 
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Function: TD MOVE 


Special Function Key: K24 


Subprograms: 


Cart_coord (Xmit(*), Wpt(25,7), Wpt(25,8), Zxmit(*)) 

Rb (Zp(1), Zp(2), Zxmit(I,1) Zxmit(1,2), Bear(1), Range(I)) 
Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R(*)) 


This program function calculates the change in TD from a waypoint to a 
position offset from the waypoint. This offset in waypoint position and TD 
may be applied to the waypoint table. The change in TDs is calculated based 
on the change in distances to the transmitters. 


Function Variables: 


Cl = Status variable which indicates if chain data has been read into 
memory 

Fl - Status variable which indicates if the waypoint table has been 
read into memory 

Chain$ - Chain file, e.g. NEUS1, GTLK2, etc. 

Ch$ - First four characters of Chain$ 

Conf - Chain configuration, fifth character of Chain$, 1 = XYZ, 2 = WXY, 
3 = WZ, 4 = WYZ 

Xmit(*), Power(*), Emis(*) - Transmitter data: geodetic position, power 
level, emission delay 

Wpt(*) - Waypoint table 

Wp - Waypoint of interest 

Move - Indicates if change in position is to be input as dx, dy or 

range/bearing 

Dx, Dy - Offset in x and y direction from waypoint 

R, B - Range and bearing of offset position from waypoint 

Zp(*) - Waypoint position and offset position 

Zxmit(*) - xy coordinates of transmitters relative to local origin 

Bear(*), Range(*) - Ranges and bearings to transmitters 

T(*) - Variable to store intermediate calculations and TD offsets 

File$ - Waypoint file name 

Cor$ - Input variable which indicates if the offset is to be applied as a 
correction to the waypoint TD in the waypoint table 


User Instructions: 


1. 


Prerequisite function: none. It is assumed that a waypoint file exists. 


Press K24. The program menu is cleared and "MOVE: CALCULATES 


Tdq = Tdpth(Zq)-h(Zp)" appears on the CRT. 


2. 


If "CHAIN FILE?" appears on the display line: 


(1) Insure tape containing chain file is in right hand tape drive 
(2) Enter: Chain file (e.g. NEUS2, GTLK1) 
(3) Press: CONT 
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3. If “WAYPOINT FILE?" appears on the display line: 


ae Insure the tape cartridge containing the waypoint file is in the right 
hand tape drive. 

b. Enter: Waypoint file name 

ce Press: CONT 


4. When "WAYPOINT?" appears on the display line: 


a. Enter: Waypoint of interest 
b. Press: CONT 


5. When “Dx/Dy 1 OR RANGE/BEARING 2, 1 OR 2" appears on the display line: 


a. If the offset is to be applied in x and y components: 
(1) Enter: 1 
(2) Press: CONT 
(3) Go to Step 6 
b. If the offset is to be applied as a range and bearing from the 
waypoint: : 
(1) Enter: 2 
(2) Press: CONT 
(3) Go to Step 8 


6. When "INPUT DX (KM)" appears on the display line: 


a. Enter: x direction component of the offset in KM 
b. Press: CONT 


7. When “INPUT DY (KM)" appears on the display line: 


a. Enter: y direction component of the offset in KM 
b. Press: CONT 
ce. Go to Step 9 


8. When "RANGE (KM) AND BEARING (DEG)" appears on the display line: 


a. Enter: The range in KM and the bearing in degrees separated 
by a comma 
b. Press: CONT 


9. The effect of offsetting the waypoint on the TDs corresponding to the 
chain configuration will be printed on the hard copy printer. 


10. When "APPLY CORRECTION TO WP? Y OR N" appears on the display line: 


a. If you want to change the waypoint parameters to the offset position: 
(1) Enter: Y 
(2) Press: CONT. (Note: This step does not change the waypoint 
data stored on magnetic tape. See K23.) 
(3) "WAYPOINT TD AND POSITION CORRECTED" is printed on the hard 
copy printer. 
b. If not: 
(1) Enter: N 
(2) Press: CONT 





11. The program function is complete. 


The CRT is cleared and the program 
menu reprinted. 
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Function: Link Data Files 
Special Function Key: K25 
Subprograms: 


Link (W(*), X(*), ¥(*), Z(*), R1(*), R2(*), U$(*), N, FS) 
Store (W(*), X(*), ¥(*), Z(*), R1(*), R2(*), U$(*), N, FS) 


This program function enables multiple data files to be loaded into memory. 
Range and TD data can be corrected for each file entered. The total number of 
samples must be equal to or less than 400. The function will automatically 
ignore any samples which would cause this limit to be exceeded. 


Function Variables: 


w(*), X(*), ¥(*), Z(*) - TD data arrays 

R1(*), R2(*) - Miniranger data arrays 

U$(*) - Time (Julian day:hours:min:sec) data array 
N - Total number of samples 

F$ - Final file name 


User Instructions: 
Prerequisite functions: none 


1. Press K25. The program menu is cleared and "i,INK DATA FILES" is printed 
on the CRT. 


2. When "FIRST FILE NAME?" appears on the display line: 


a. Enter: File name 
b. Press: CONT 


3. When "CURRENT FILE = (Current file)" and "CORRECT RANGE DATA? Y OR N" 
appears in the display area: 


a. If range data is to be corrected 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 6 


When "CORRECTION TO R1(METERS)" appears on the display line: 


ae Enter: Correction to Rl data in meters 
b. Press: CONT 


When "CORRECTION TO R2(METERS)" appears on the display line: 


ae Enter: Correction to R2 data in meters 
b. Press: CONT 
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The current file name and corrections are printed on the hard copy printer. 
The file name is annotated with an "r", 


6. When "CORRECT TD DATA?" appears on the display line: 


ae If TD data is to be corrected: 
(1) Enter: Y 
(2) Press: CONT 
b. If not 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 11 


7. The start and stop time for the data collected on the current data file 
are printed on the hard copy printer. When "CORRECTION TO TDW(MICROSEC)?" 
appears on the display line: 


ae Enter: Correction to TDW in microsec. 
b. Press: CONT 


8. When "CORRECTION TO TDX(MICROSEC)?" appears on the display line: 


a. Enter: Correction to TDX in microsec. 
b. Press: CONT 


9. Wnen "CORRECTION TO TDY(MICROSEC)?" appears on the display line: 


ae Enter: Correction to TDY in microsec. 
b. Press: CONT 


10. When "CORRECTION TO TDZ(MICROSEC)?" appears on the display line: 


ae Enter: Correction to TDZ in microsec. 
b. Press: CONT 


The file name is annotated with a "t" and the corrections entered are printed 
on the hard copy printer. 


11. A list of tne files linked and total number of samples is printed on the 
CRT. When "ANOTHER FILE?" appears on the display line: 


ae If another data file is to be entered: 
(1) Enter: Y 
(2) Press: CONT 
b. If not 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 13 


12. When "FILE NAME?" appears on the display line: 
a. “nter: file name 


b.  .ress: CONT ye 
Ce Go to Step 3 
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13. A final list of the files linked and total number of samples is printed 
on the hard copy printer. When "STORE DATA SET?" appears on the display line: 


a. If you want to store the data on a new file 
(1) Enter: Y 
(2) Press: CONT 
b. If not 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 15 


When "FILE NAME?" appears on the display line 

a. Insert a tape cartridge in the left hand tape drive. 

b. Enter: file name 

ce Press: CONT 
15. If the data is not stored on tape, the file name will be the list of 
files linked. If the data was stored, the file name returned is the name used 


to store the data. 


16. The program function is complete. The CRT is cleared and the program 
menu reprinted. 
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Function: Store Loran-C Chain Data 
Special Function Key: K26 
Subprograms: None 


This program function stores Loran-C chain data (transmitter geodetic 
positions, transmitter power levels, and secondary emission delays) on a data 
file for later use. File names are a five character neumonic for the 
particular Loran-C chain. The first four characters are an abbreviation for 
the chain (e.g. NEUS, SEUS, GTLK, etc.). The fifth character is a number from 
1 to 4 which designates the configuration of three TDs: 1 = XYZ, 2 = WXY, 

3 = WXZ, 4 = WYZ. 


Function variables: 


Chain$ - Five letter chain file 
Conf ~ Chain configuration, fifth character in Chain$ 


D,M,S - Input variables for degrees, minutes, secondaries when entering 
latitude or longitude 

Power(*) ~ Transmitter power levels. P(1), P(2), and P(3) are secondary 
transmitters. P(4) is the master transmitter. 

Xmit(*) - Transmitter geodetic positions. Xmit(4,1) and Xmit(4,2) are 
master latitude and longitude 

Emit(*) - Secondary emission delays 

L1$, L2$, L3$ - Labels for secondaries, e.g. "TDX" 

C$ - Input variable to indicate if data entered is correct 


User Instructions: 
Prerequisite functions: None 


1. Press K26. The program menu is cleared and “STORE CHAIN DATA" is printed 
on the CRT. 


2. “PLACE TAPE CARTRIDGE IN RIGHT HAND TAPE DRIVE" is printed on the CRT. 
When "INPUT CHAIN FILE NAME” appears on the display line: 


a. Enter: File name. The file name is a five character neumonic for the 
chain of interest. It is important that it be five characters long. 
The first four characters are an abbreviation for the chain name. Any 
convenient four letter code is acceptable. The fifth character must be 
an integer from 1 to 4, The number designates the secondary data to be 
stored (1 = XYZ, 2 = WXY, 3 = WXZ, 4 = WYZ) in the first three rows of 
Xmit(*), Power(*) and Emis(*). 

b. Press: CONT 


Note: If the file name is not a valid name, “INPUT CHAIN FILE NAME" will be 
repeated. 





1 
3 
| 
i 
tl 
1 
a 


3. When "INPUT MASTER DATA" and "MASTER LATITUDE? D,M,S" appears in the 
display area: y 


a. Enter: master latitude degrees, minutes, seconds (entries separated by 
commas). North latitude is assumed. 
b. Press: CONT 


4. When "INPUT MASTER LONGITUDE? D,M,S appears in the display area: 


a. Enter: master longitude in degrees, minutes, seconds (separated 
by commas). West longitude is assumed. 
b. Press: CONT 


5. When "POWER LEVEL? KW" appears on the display line: 


a. Enter: power level of master in kilowatts. 
b. Press: CONT 


6. The following sequence of input statements will have different secondaries 
listed depending on the configuration. The statements below are for Conf = 1 

(e.g. XYZ). The portion of the statement contained within parentheses are for 
configurations 2, 3, and 4, respectively. 





When "INPUT TDX (TDW,TDW,TDW) DATA" and "LATITUDE? D,M,S" appears in the 
display area: 


a. Enter: secondary X (W,W,W) latitude in degrees, minutes, seconds 
b. Press: CONT 


7. When "LONGITUDE? D,M,S" appears in the display area: 


a. Enter: secondary X (W,W,W) longitude in degrees, minutes, seconds 
b. Press: CONT 





8. When "POWER LEVEL? KW" appears in the display area: 


ma a. Enter: secondary X (W,W,W) power in Kilowatts 
j | b. Press: CONT 


2 9. When "EMISSION DELAY?" appears on the display line: 


a. Enter: secondary X (W,W,W) emission delay 
b. Press: CONT 


10. When “INPUT TDY (TDX,TDX,TDY) DATA" and "LATITUDE? D,M,S" appears in 
the display area: 


a. Enter: secondary Y (X,X,Y) latitude in degrees, minutes, seconds 
b. Press: CONT 
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11. When "LONGITUDE? D,M,S" appears on the display line: 


a. Enter: secondary Y (X,X,Y¥) longitude in degrees, minutes, seconds 
b. Press: CONT 


When "POWER LEVEL? KW" appears on the display line: 


a. Enter: secondary Y (X,X,Y) power level in kilowatts 
b. Press: CONT 


When "EMISSION DELAY?" appears on the display line: 


a. Enter: secondary Y (X,X,Y) emission delay 
b. Press: CONT 


14. When "INPUT TDZ (TDY,TDZ,TDZ) DATA" and “LATITUDE? D,M,S" appears in the 
display area: 


a. Enter: secondary Z (Y,Z,Z) latitude in degrees, minutes, seconds 
b. Press: CONT 


15. When "LONGITUDE? D,M,S" appears on the display line: 


a. Enter: secondary Z (Y,Z,Z) longitude in degrees, minutes, seconds 
b. Press: CONT 


When “POWER LEVEL? KW" appears on the display line: 


a. Enter: secondary Z (Y,Z,Z) power level in kilowatts 
b. Press: CONT 


When "EMISSION DELAY?" appears on the display line: 


a. Enter: secondary Z (Y,Z,Z) emission delay 
b. Press: CONT 


18. A table is printed on the CRT of the data entered. When "IS DATA 
CORRECT? Y OR N" appears on the display line: 


a. If the data is correct: 
(1) Ensure a tape cartridge is in the right hand tape drive 
(2) Enter: Y 
(3) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 3 


19. The program function is complete. The CRT is cleared and the program 
menu is printed on the CRT. 











Function: Reflect TDs to Waypoint 


Special Function Key: K27 
Subprograms: 


Cart coord(Xmit(*), Wpt(25,7) Wpt(25,8) Zxmit(*)) 

Beriect (W, Wpt(*), Wie), X(*), ¥(*), Z(*), Zx(*), Zy(*), Conf, Zxmit(*), 
N, V 

Rotate (Glat, Glon, R(*)) 

Cart (Plat, Plon, X, Y) 

FNGlat (Lat, F) 

Pseudo (Glat, Glon, R(*), Plat, Plon) 

Rb (xl, yl, x2, y2, B, R) 


This program function reflects each TD sample to the waypoint selected based 
on the position of the measurement relative to the waypoint. The resultant 
data arrays are averaged to produce an estimate of the waypoint TDs. 


Function variables: 


Cl ~- status variable which indicates if chain data is in memory 

Fl- status variable which indicates if the waypoint table is in memory 

Chain$ - chain file name 

Ch$ - first four characters if Chain$ 

Conf - chain configuration, fifth character in Chain$ 

Xmit(*), Power(*), Emis(*) - transmitting station parameters: geodetic 

position, power level and emission delay 

Wpt(*) - waypoint table 

File$ - waypoint file name 

Zxmit(*) - transmitter xy coordinates referenced to local origin 

W - waypoint of interest 

We), X(*), ¥(*), Z(*) - TD data arrays 

Zx(*), Zy(*) = measurement position coordinates calculated from Miniranger 
data 

N ~ Number of samples 

V ~ Velocity of propagation 

F$ - data file name 


User Instructions: 
Prerequisite functions: 
KO ~ Read Data 
K16 - Edit Data (Optional) 


Kl ~ Calculate XY Position from Range Data 


1. Press K27. The CRT is cleared and "REFLECT TDs TO WAYPOINT” is printed on 
the CRT. 


2. If “CHAIN FILE?" appears on the display line: 


(1) Enter: Chain file name 
(2) Presse: CONT 
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If "WAYPOINT FILE NAME?" appears on the display line: f 


a. Enter: waypoint file name 
b. Press: CONT 


When "WAYPOINT WHERE DATA IS TO BE REFLECTED?" appears on the display line: 


a. Enter: waypoint number 
b. Press: CONT 


The data file name is annotated with a right bracket symbol and "RESULTS 


OF REFLECTING FILE (F$) TDS TO WAYPOINT (W)" is printed on the hard copy 


printer followed by the statistics table generated by function K2. 


6. 


The program function is complete. The CRT is cleared and the program menu 


is reprinted on the CRT. 


Note: The data contained in the TD arrays (W(*), x(*), Y¥(*), Z(*))) has been 
changed. 
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Function: Create or Read Reference Station File 
Special Function Key: K28 
Subprograms: 

Ref-file (Ref(*), Ref$(*), F2, Rp$) 


This program function is used to store reference station coordinates on a file 
for use in converting range data to xy coordinates. 


Function variables: 

Ref(*) - reference station table. Rows 1 and 2 contain the state plane or 
local coordinates of the two reference stations. Row 3 contains 
the coordinates of the local origin. 

Ref$(*) - reference station identifiers 

Rp$ - reference station file name 

User Instructions: 


Prerequisite functions: None 


Press K28. The CRT is cleared and "CREATE OR READ REFERENCE STATION FILE" 
printed on the CRT. 


When "REFERENCE POSITION FILE NAME?" appears on the display line: 


ae Enter: file name 
b. Press: CONT 


When "DOES THIS FILE CURRENTLY EXIST ON TAPE?" appears on the display line: 


a. If the file has been previously created: 
(1) Ensure the tape cartridge is in the right hand drive 
(2) Enter: Y 
(3) Press: CONT 

b. If not: 
(1) Ensure the tape cartridge is in the right hand drive 
(2) Enter: N 
(3) Press: CONT 


When "NEW OR ADDITIONAL DATA? Y OR N" appears on the display line: 


a. If data is to be entered: 
(1) Enter: Y 
(2) Press: CONT 
b. If not: 
(1) Enter: N 
(2) Press: CONT 
(3) Go to Step 9 





10. 


a re ee 


11. 


Rae 


When "REFERENCE NO? 1-3" appears on the display line: 


a. Enter: reference station number. Numbers 1 and 2 are for the two 
reference stations. Reference number 3 is the local origin. 
b. Press: CONT 


When "LABEL?" appears on the display line: 


a. Enter: reference station identifier 
b. Press: CONT 


When "X-POSITION?" appears on the display line: 


a. Enter: the X(East) position of the reference station in KM with 
respect to the local origin or the state plane coordinates in KM. 
b. Press: CONT 


When "Y-POSITION?" appears on the display line: 


a. Enter: the Y(North) position of the reference station in KM with 
respect to the local origin or the state plane coordinates in KM. 

b. PressP CONT 

Ce Go to Step 4 


When "LIST DATA?" appears on the display line: 


a. If you want a list of the reference station data: 
(1) Enter: Y 
(2) Press: CONT. The reference station data is printed on 


the hard copy printer. 
b. If not: 


(1) Enter: N 
(2) Press: CONT 
When "FILE DATA?" appears on the display line: 


a. If you want to file the data: 
Y 


(1) Enter: 
(2) Press: CONT 
b. If not: 


(1) Enter: N 
(2) Press: CONT 


The program function is complete. The CRT is cleared and the program 


menu is reprinted. 
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Program COMPAR Subroutines 


Name Starting Line NO Program Functions 
Bear 10710 K20 


Cart 21750 K17,21,22,24,27 
Cart_coord 22750 K17,21,22,24,27 
Compar 26180 K3 

Ct_at 13970 K1,17 

Delete 14990 K16 
Delete_blok 17560 K16 

Delete_rg 22380 K16 

Delete_td 17980 K16 

Dif 18900 K3 

Fehgt 12550 K17,22 

FNGlat 21900 K17,21,22,24,27 
G mat 11150 K17,20,22 

Hi_lo 9360 K2,3,5,18,19,21 
Link 15750 , K25 

Patct 14240 K19 

Plot 9440 K4 

Plot_err 19130 K3 

Position 18830 Kl 

Print 9040 K1,K2 

Pseudo 21410 K17,21,22,24,27 
Range 10860 K20 

Rb 25510 K17,22,24 

Read 15400 KO 

Ref file 21960 K28 

Reflect 26470 K27 

Reg 8710 K1,2,17 

Rotate 21600 K17,21,22,24,27 
Rplot 9760 K5 

Stat_mat 16570 K1,2,3,17,21 
Store 17130 K16,25 

Td 11670 K20 

Td2 24650 K17 

Td3 23440 K17 

T_errplot 20500 K21 

Track 18400 K17 

Triangle 18600 Kl 

Warp 19800 K21 

Wpfile 12030 K23 

Wpf2 25110 K17,22 

Wp2 23770 K17,22 

Wp3 23030 K17,22 
X_errplot 19500 K18 

Xplot 13130 K18 





4 { COMPARE PROGRAM 
2 ! 40 APRIL 1982 
3 ! 

410 OPTION BASE i 

20 DEG 

30 DIM W400) ,X6400),¥(400) ,Z(400) ,R1(400) ,R2(400) ,U$( 4009114) 

40 DIM P(4),0_set(4),Stat(4,4),Cov(3,6),5¢4,6) ,RC3,6) ,004) 

SO DIM $1(4,6),S2(4,6) ,Wp(4,6) ,Wpt(25,8) ,T(3),Zd(2) ,F$(80) 

60 DIM Xmit(4,2),Emis(3),Bear (4) ,Range(4),Td(3) ,Power (4) ,G123(2,3) ,G12(2,2 
) 

70 DIM Gi3(2,2) ,G23(2,2) ,Zxmit(4,2),Zp(2) ,Aat3,2) ,Pos_x(400) ,Pos_y(400) ,Tp 
(3,4),Tq(3,4) 

80 DIM 2Zq(2,1),Zpp(2,1) ,At(400) ,Ct(400) , Tpp(2,41),Tqaqt2,4) ,Zqq(2,4) 
90 DIM Zx(400) ,Zy(400),2b(2) ,Rotate (3,3) ,6x(4,2) ,Px(4,2) ,Axyl(2,2) 
400 DIM Tw(2) ,Zm(2),Zt(2) ,Ref$(3) ,Ref (3,2) ,Att (400) ,Ctt (400) 

440 DIM Zxx(2,41),2xm(3,2) ,6(2,2) 

420 V=.299792458/1 .000338 

130 F=,00335278 

230 ' 

250 ! 

260 KEY #0 GOTO KO 

270 KEY #4 GOTO K4 

280 KEY #2 GOTO K2 

290 KEY #3 GOTO K3 

300 KEY #4 GOTO K4 

3410 KEY #5 GOTO KS 

320 KEY #16 GOTO K1ié6 

330 KEY #147 GOTO Ki7 

340 KEY #18 GOTO Ki8 

350 KEY #19 GOTO Ki9 

360 KEY #20 GOTO K20 

370 KEY #24 GOTO Kei 

380 KEY #22 GOTO K22 

390 KEY #23 GOTO K23 

400 KEY #24 GOTO K24 

410 KEY #25 GOTO Kes 

420 KEY #26 GOTO K26 

430 KEY #27 GOTO K27 

440 KEY #28 GOTO K28 

450 Menu: ! 

460 MASS STORAGE IS ":T41S" 

470 PRINTER IS 16 

480 PRINT PAGE 

490 PRINT “ AUGMENTED SURVEY: ANALYSIS 2 " 

soo PRINT "KO:READ TRACKLINE FILE DATA” 

$10 PRINT “Ki:CONVERT RANGE DATA TO XY POSITIONS" 

520 PRINT "K2:STATS AND REGRESSION OF TD DATA" 

S30 PRINT “K3:COMPARE MINI-RANGER AND LORAN-C XY POSITIONS" 

540 PRINT "K4:PLOT TD DATA WITH REGRESSTON LINE" 

sso PRINT “KS:PLOT RESIDUALS OF TD DATA” 

$60 PRINT "“Ki6:EDIT DATA” 

$70 PRINT "Ki7:CONVERT TDs TO XY AND AT/CT” 

580 PRINT "Ki8:PLOT XY DATA" 

$90 PRINT "Ki9;:PLOT AT/CT DATA" 

600 PRINT "“K20:PREDICT TD" 





610 
620 
630 
640 
650 
660 
670 
680 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“K24;: CALCULATE TD GRID WARP" 

“K22: DAISY CHAIN WAYPOINTS” 

"“K23:FILE OR READ WP DATA* 

“K24:TD MOVE" 

"K2S:LINK DATA FILES* 

"K26;:STORE CHAIN DATA*® 

"K27:REFLECT TDS TQ WAYPOINT" 

“K2B;FILE OR READ REFERENCE STATION DATA" 


690 Loop: GOTO Loop 
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F400 60KO: 3 * READ DATA FRLE 

720 PRINT PAGE 
730 PRINT “ READ DATA FILE " 
740 MASS STORAGE IS “;:T14* | 
750 PRINTER IS 0 
760 FIXED 2 
770 CALL Read( WOK) ,X¢K), YOK), Z¢K) RICK) RACK) ,USCK) NFS) : 
780 PRINT "FILE=";F$; TAB(30); "SAMPLES="3N 
790 Range$="N” 

600 INPUT “CORRECT RANGE DATA?,Y OR N”,Ranges : 
810 IF Range$="N" THEN Td_cor i 
820 INPUT "CORRECTION TO Ri (METERS) ?",Ric 

830 INPUT "CORRECTION TO R2¢(METERS)?",R2c 

B40 PRINT "Ri CORRECTION=";Ric;TAB(30);"R2 CORRECTION="3;R2c 

850 FOR I=i TON 

860 RICTI=SRi CI) +Ric 

870 R@CT)=R2(1)+R2c 

880 NEXT I 

890 FS=F¢4"r" \ 
900 Td_cor;: 5 

940 Td_cor$="N" 

920 INPUT "CORRECT TDs? Y/N",Td_cors 

930 IF Td_cor#<(>"Y" THEN Menu 

940 PRINT "START TIME="3U$(4);TAB(30);"STOP TIME=";U$(N) 

950 INPUT “CORRECTION TO TDW(MICROSEC)?",Wcor 

960 INPUT "CORRECTION TO TDX(MICROSEC)?",Xcor 

970 INPUT “CORRECTION TO TDY(MICROSEC)?",Ycor 

980 INPUT "CORRECTION TO TDZ(MICROSEC)?",Zcor 

990 FOR T=i TON 

1000 WCT)=WCT)+Wcor 

1040 XCI)=X(1I)+Xcor 

1020 Y¥CTD =¥C1I)+Yeor 

1030 Z(T)=Z¢1)+Zecor 

1040 NEXT I 

1050 PRINT "TD CORRECTIONS: ";TAB(20) 3 "Weor="3Wecor ;TAB(3S) 3 "Xcor=";Xcor;TA 
B(SO);"Ycor=";Ycor ;TAB(6S) ; "Zcor="3;Zcor 

1060 FS=FSa"t" 

1070 GOTO Menu . 

1080 § 





4400 KSA: ! CONVERT RANGES TO KY 


4440 
41120 
1136 
41140 
1450 
1160 
1470 
1180 
41190 
4200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
4360 
1370 
41380 
1390 
1400 
1410 
1420 
1430 
1440 
1444 
1442 
1443 
4450 
1440 
1461 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1S40 
1550 
1560 
1570 
1580 
1590 


PRINT PAGE 
MASS STORAGE IS ":TiS” 
FIXED 4 
PRINT " CONVERT RANGES TO XY POSITION ” 
PRINTER IS 0 
INPUT “POSITION REFERENCE FILE NAME?",Rp$ 
PRINT "POSITION REFERENCE FILE NAME=";Rp$ 
PRINTER IS 46 
ASSIGN #1 TO Rpt 
READ #4;Ref$(K) ,Ref (x) 
PRINT “REFERENCE POSITIONS: " 
FOR I=41 TO 2 
PRINT I,Ref$C(I) ,Ref(1,1i) ,Ref(1T,2) 
NEXT I 
PRINT "LOCAL GRID ORIGION:" 
PRINT “3",Ref$ (3) ,Ref (3,4) Ref(3,2) 
Zb(4)SReEF(4,4)-Ref (3,4) 
Zb(2)=Ref (4 ,2)>-Ref (3,2) 
Zc (4) =Ref(2,4)-Ref (3,4) 
Ze (2) =Ref(2,2)-Ref (3,2) 
' CALCULATE RANGE AND BEARING BETWEEN REF POINTS 
R=SQR( (Zc (04)-Zb (4) 2 *24¢6270(2)-2b(2)9*%2) 
Alpha=ATN( (Zc (4) ~-Zb(4))/(0Ze(2)-Zb(2))) 
IF Zc(2)~Zb(2)40 THEN Alpha=Alpha+i80 
IF Alpha<0 THEN Alpha=Alphat+360 
PRINT "“RANGE="3R, “BEARING=";Alpha 
Point=4 
INPUT "IS R4 AT POINT Bi OR C2? 4 OR 2",Point 
Point$="B" 
IF Point=2 THEN Point$="C" 
PRINT "Ri TRANSPONDER IS AT POINT ";Point$ 
MAT Zx=(0) 
MAT Zy=(0) 
Sign=i 
INPUT "ENTER SIGN, +4 OR -1",Sign 
Q=0 
INPUT "DATA °*SAMPLE TO CHANGE SJGN",Q 
PRINT "CONVERTING DATA" 
FOR I=4 TON 
IF I=Q THEN Sign=-Sign 
IF Point=i THEN Re=RiC(I) 
IF Point=i THEN Rb=R2¢(T) 
IF Point=2 THEN Rc=R2(T) 
IF Point=2 THEN Rb=R1i (I) 
CALL Triangle(R,Rb/1000,Rc/1000,A,8,C) 
DISP I,A 
CALL Position(Zb(%) ,Alpha,Rc/1i000,Sign,B,Zx(1),Zy(I)) 
NEXT I 
PRINTER IS 0 
CALL Stat_mat(RiCm) ,RACK),ZxCK) ,Zy CK) Stat Me) ,Cov le) ,A_set (mk) ,N) 
CALL Reg (Stat(k) , Cova) ,SCK) ROK) ,O_set(x)) 
CALL Print(Stat(k) ,O set(k) ,Cou(e) ,RCK)N,2) 
IF Fi THEN 1640 





4600 INPUT "WAYPOINT FILE NAME?" , Files 

4640 ASSIGN #4 TO Files 

4620 RFAD #1 ;Wpt(*) 

4630 Fizi , 

4640 INPUT "WAYPOINT TO?" ,Wt 

4650 INPUT "WAYPOINT FROM?" ,WF 

1660 CALL Ct_at(Zx(K) ,Zy Ck) Cee Ce) ,ATTCK) WotCWt,S) ,WorlWt, 6) ,WotiWwFr,S) ,W 
pt(WF,6),N,R, Angle) 

1670 GOTO Menu 

1690 ! 
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4700 Ke: ! & STATS AND REGRESS TON 


4740 MASS STORAGE IS “:T414" 

4720 PRINT PAGE 

4730 PRINT “ STATISTICS AND REGRESSION OF TD DATA “ 

4740 PRINTER IS 0 

4750 CALL Hi_lo(W(k),N,Bw,Lw? 

4760 GALL Hi_10(X(k),N,Bx,Lx) 

4770 CALL Hi_1lo(Y(%),N,By,Ly) 

4780 CALL Hi_10(Z(k),N,Bz,Lz) 

4790 CALL Stat_mat(WOe) ,XOk) , YOK), Z0K) , Stat Ok), Cov Ck) ,O_setce) ,N) 
4800 CALL Reg(Stat(k),Cov(k) ,S(&) ROK) 0 setcK)) 

4840 PRINT "TRACKLINE=";F$;TABR(20);" START TIME=";U$(4);TAB(SO);" STOP TI 
ME=";U$(ND 

4820 CALL Print(Stat(k) ,O_set(e) ,Cov(k) ROK) ,N, 4) 

4830 GOTO Menu 

1940 |! 
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4.250 «331 ! ae COMPARE MIINT--RANGER AND 


1860 PRINT PAGE 

1870 PRINT “ COMPARE MINI-RANGER AND LORAN-C POSITION DATA “ 

4880 CALL Compar (Pos_x(x) ,Pos_y(%),Zx(K) ,Zy CH) ACH) Ce) ,ATT CK) ,Crtcm) ,F 
' $,N,R) 

4890 GOTO Menu 
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47°00 K4: ! PLOT TH DATA WETH REGRESS 


4910 PRINT PAGE 

4920 PRINT " PLOT TD DATA WITH REGRESSION LINES "* 

1930 INPUT “PLOT? WX1,WY2,WZ3,XY4,XZS,YZ6",Plot 

1940 ON Plot GOTO Wx,Wy,Wz,Xy,Xz,Yz 

4950 Wx: PRINT !IN(3) 

1960 CALL Plot(Lw,Bw,Lx,Bx,S(4,41),8(2,4) ,WCK) ,XCK) RCL, L) ON," TDX", "TDW", 
FS) 

4970 PRINT LIN(3) 

4980 GOTO Menu 

1990 Wy; PRINT LIN(3) 

2000 CALL Plot(Lw,Bw,Ly,By,S(4,2),5¢2,2) ,WOk) , YOR) ,RC1,2),N,°TDY", "TDW", 
FS) 

2010 PRINT LIN(3) 

2020 GOTO Menu 

2030 Wz: PRINT LIN(3) 

2040 CALL Plot(Lw,Bw,Lz,Bz,S(1,3) ,8(2,3) ,WOK) ,Z(%) ,RCL,3),N,"TDZ", "TDW", 
FS) 

2050 PRINT LIN(3) 

2060 GOTO Menu 

2070 Xy: PRINT LIN(3) 

2080 CALL Plot(Lx,Bx,Ly,By,S(1,4) ,5(2,4) ,XOK) ,Y(K) ,RC41,4) N,"TDY","TDX", 
FS) 

2090 PRINT LIN(3) 

2100 GOTO Menu 

2140 Xz; PRINT LINCS) 

rd CALL Plot(Lx,Bx,Lz,Bz,5¢41,5) ,S(2,5),X(#), 20%) RCL, 5) ,N,"TDZ","TDX", 
$) 

2130 PRINT LIN(3) 

2140 GOTO Menu 

2450 Yz:; PRINT LIN(3) 

ai CALL Plot(Ly,By,Lz,Hz,S(41,6),S(2,6) ,Y¥(K) , Z(H) ,RV1,6),N,"TDZ","TDY", 

2170 GOTO Menu 

2180 ! 





2e40 KS: 1 PLOVT REGS UDUAL 


2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2369 
2370 
2380 
2390 
2409 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2540 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 


PRINT PAGE 
Hce=0 
PRINT “ PLOT RESIDUALS “ 
INPUT “PLOT? WX1i,WY2,WZ3,XY4,XZS,YZ6" ,Plot 
ON Plot GOTO Rwx,Rwy,Rwz,Rxy,Rxz,Ryz 

Rwx: IF R¢(3,1)=2 THEN Skipi 
CALL Rplot(WwCk) ,XCK), SCH), ROK), LN, "TDW", “TDX" FS) 
PRINT LIN(3) 
GOTO Menu 

Skipt:CALL Rplor(X(K) ,WCK) ,SCK) ROK) ,4,N, "TDW", "TDX", FS) 
PRINT LIN(3) 
GOTO Menu 

Ruy: IF R(3,2)=2 THEN Skip2 
CALL Rplot(Wc(mK), YORK), SOK) ROK) ,2,N, "TDW", “TDY" FS) 
PRINT LIN(3) 
GOTO Menu 

Skipe@:CALL Rplot(Y¢x) ,WCK) , SOK) ROK) ,2,N, "TDW", "TDY" , FS) 
PRINT LIN(3) 
GOTO Menu 

Rwz: IF R¢3,3)=2 THEN Skip3 
CALL Rplot (Wom), Zk), SOK) ROK), st: N, "TDW" ,"TDZ" ,FS) 
PRINT LIN(3) 
GOTO Menu 

Skip3:CALL Rplot(Z¢e) ,WCK) , SOK), RICK), 3,N, "TDW", “TDZ" , FS) 
PRINT LIN(3) 
GOTO Menu 

Rxy: IF R¢(3,4)=2 THEN Skip4 
CALL Rplor(X¢x) ,YCK) ,SCK), ROK) ,4,N,"TDX","TDY" , FS) 
PRINT LIN(3) 
GOTO Menu 

Skip4:CALL Rplot¢¥(mu) ,XCK) , SOCK), ROK) ,4,N,"TDX", "TDY" FS) 
PRINT LIN(3) 
GOTO Menu 

Rxz: IF R¢3,5)=2 THEN SkipS 
CALL Rplot(X(k) ,Z2¢k) , SK), ROK) ,S,N,"TDX","TDZ" , FS) 
PRINT LIN(3) 
GOTO Menu. 

SkipS:CALL Rplot¢Z¢(x) ,XCR), SOCK) RCM), SN, "TDX", "TDZ" , FS) 
PRINT LINCS) 
GOTO Menu 

Ryz: IF R(3,6)=2 THEN Skipé 
CALL Rplot¢¥(K) ,Z0K) , SEK) ROK) ,6,N,"TDY","TDZ" , FS) 
PRINT LIN(3) 
GOTO Menu 

Skip6:CALL Rplot(Z(K) ,YCR) , SCR), ROK) ,6,N,"TDY", "TD7", FS) 
PRINT LIN(3) 
GOTO Menu 
’ 





2720 KA G3 1 be EDLY TH DATA 


2730 MASS STORAGE IS ":T1i4" 

2734 PRINTER IS 46 — 

2740 PRINT PAGE 

2750 PRINT “ EDIT TD DATA * 

27351 Edit#S 

2752 S$="N" 

2760 INPUT "SINGLE LINE1,BLOCK2,TD-CLIP3,OR RANGE4S?” ,Edit 

2770 ON Edit GOTO Single,Blok,Clip,Range,More 

2774 GOTO More 

2780 Single:CALL Delete(WCk) ,X(K), YK), Z0K) RICK) RACK) ,USCH) ,N, FS) 
2790 GOTO More 

2800 Blok:CALL Delete_blok(W(K) ,XOK),Y(K),Z(%), RACK) ,R2CK) ,USCK) NFS) 
2810 GOTO More 

2820 Clip:CALL Delete_td(WOm) ,XCH), YOK), Z0K) RACK) RACK) ,USCR) NFS) 
2830 GOTO More 

2840 Range:CALL Delete rg (WOK) ,XOK), YOK), Z0K) RACK) RACK) USC K) NFS) 
2850 More: ! 

28514 INPUT "EDIT MORE DATA? Y OR N”,S$ 

2852 IF UPCS$(S$L43;4])="Y" THEN K1i6 

2853 INPUT "LIST DATA? Y OR N",S$ 

2854 IF UPC$(S$(43;4])<>"Y" THEN Stor 

2855S FIXED 2 

2856 FOR I=14 TON 

2857 PRINT IT; WCLT) XI); YCI) 5 Z¢1T) ;RACT) RECT) 5 USCT) 

2858 NEXT I 

2860 Stor: FS$=FSa"e”* 

2868 INPUT “ STORE EDITED DATA? Y OR N ",S$ 

2870 IF UPC$(S$043;41])<>"Y" THEN Menu 

2880 CALL Store CWCK) ,XCR) , YOK), Z0K) RICK) RACK) ,USCK) N, FS) 
2890 GOTO Menu 

2920 ! 








ee 





2PBO KAA: 1 * CONVERT TH TQ xKyY 


2940 PRINT PAGE 
2950 PRINT “ CONVERT TD TO XY “" 
2960 MASS STORAGE IS “;:TiS*“ 
2970 MAT Pos_x=(0) 
2980 MAT Pos_y=(0) 
2990 MAT Ct=(0) 4 
3000 MAT At=(0) 
i 3040 Chain: ! 
. 3020 IF Ci=4 THEN Wp file 
3040 INPUT “CHAIN FILE",Chains Pa 
3060 IF LEN(Chain$)¢(>S THEN Chain 
3070 ASSIGN #1 TO Chains bo 
; 3075S Ci=4 oy 
: 3080 READ #41 ;Xmit(k) ,Power(%) ,Emis(x) | 
3090 Wp file: ! i 
3100 IF Fi=4 THEN Xmit_coord i 
3140 INPUT “WAYPOINT FILE NAME?",Files | 
3420 Fist 
3130 ASSIGN #4 TO Files : 
3140 READ #14; IMP LR? 
3150 Xmit_coord: 
|| 3160 CALL Cart aig ceatuaeens »Wpt62S,7) ,Wptt2S,8) ,Zxmit(EK)) : 
3170 Waypoint: ' | 
mi 3180 INPUT “WAYPOINT TO ?",Wt j 
wy 3190 INPUT "WAYPOINT FROM ?",WF 
32006 Range_bearing: ! 
3210 FOR I=i1 TO 4 
3225 CALL RbCWptCWt,S) ,WotcWt,6),Zxmit(l,41),Zxmit(l,2), Bear (1) ,Range (I) 
) 
3250 NEXT I 
: 3240 G_mat: ! 
a 3250 Zp (4) =Wpt(Wt,S) 1 
a 3260 Zp(2).=Wpt (Wt, 6> 
3270 CALL G_mat(Power (x) ,V,Range(®), Bear (x) ,Zp (me) ,AQCK) ,GLI25(K) G12), 


G23¢(K) ,G43(K)) 
3280 Configuration: ! 


i 3290 PRINTER IS 0 
| 3340 Conf=VAL (Chains(5,5)) 
ae 3320 Ch$=Chain$l1,41 
3340 INPUT "TWO OR THREE TD SOLUTION?",S 
3350 IF So=2 THEN So2 
3360 IF So=3 THEN So3 
3370 So3: ! THREE TD SOLUTION 
3380 CALL Wp3(Wpt(e), Conf, Wt, Tp(e) ,Zpp (x) , LS)! WAYPOINT TD 
= 3390 PRINT “THREE TD SOLUTION, CHAIN=";Ch$;"  LOPSs="5L8 
a 3400 FOR I=4 TON 
po 3410 CALL TdB(WOK) ,XOR), YOR) 20K), 1, Conf, Tq Ck)? 
a 3420 CALL. Fehg(Zxmit(k),Zpp(k), TACK), TQCR) ,G423(K) ,ZQ(R),V, 3) 
3430 Pos_x(1)=Zq(4,14) 
! 3440 Pos _y(I)=Zq(2,4) 
! 3450 DISP I 
3460 NEXT I 
! 3470 ! CALCULATE POSITION OF FROM WAYPOINT (WF) 
( 
} 
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view rionm. mm OM | 


3480 CALL Wp3(Wpt(e) , Conf ,WF,TQ(k) ,Zxx Ck), L$) {WAYPOINT FROM TD 
3490 CALL Fehg(Zxmit(®), Zpp(k), Tptk), Tq(®), Gi23¢(%),Zq¢(%),V,3) ; 
‘ 3500 GOTO Ctr_at 

3510 So2: ! TWO TD SOLUTION j 
3520 CALL Wp2(Wpt¢e) ,Conf ,Wt,Tpp(*) ,Pair ,Zpp (x) ,Gi2(K) ,G23(K) ,Gi35¢%) ,G6¢ 

; KY ,LS,ZxmitCK),Zxm(k)) i 
3530 PRINT "TWO TD SOLUTION, CHAIN=";Ch$;" LOPs=";L$ 
3540 FOR I=1 TON 
3550 CALL Td2¢WCm) ,XCK), YOK), Z(K),1,Conf,Pair,Tqq(®)) : 
3560 CALL Fehg(Zxm(k),Zpp (Kk) ,Tpp Ck), Tqq (ek) ,GCk),Zq(k),V,2) : 
3570 Pos_x(I)=Zq(i,1) : 
3580 Pos_y(I)=Zq(2,4) ‘ 
3590 DISP I | 
3600 NEXT 1 
3610 1 CALCULATE POSITION OF FROM WAYPOINTCWF) ; 
3629 CALL Wpf2(Wpt (xk) ,Conf,Pair ,WF,Tqq(k)) j 
3630 CALL Fehg(Zxm(k%),Zpp(%), Tpp (ek), Tqaq(e) ,GCk) ,Zq(K) ,V,2) 

; 3640 i CALCULATE CROSSTRACK AND ALONGTRACK POSITIONS 

| 3650 Ct_at: CALL Ct_at(Pos_x(k),Pos_y(k),CtCK) ,ATCK) ,WptCWt,S) ,Wpt(Wt,6),Z2 Ff 
q(4,4),Zq(2,4),N,R,Angle) 

| 3660 DISP R, Angle 

3670 CALL Stat_mat(Pos_x(*) ,PoSs_y(K) ,CTCK) ,ATCK) ,Stat(K) Cove) ,O_set(m 

»,N) 

|| 3680 CALL Reg(Stat(&) ,Cov(k) SOK) RK) ,0_ set(x)) 

3690 PRINTER IS 0 


e 3700 CALL Track(Strat(k),O_set(k) ,Cov (xk) ,R¢(k) , Sample ,F$,Wt ,WF,Angle,N) 
ay 3740 GOTO Menu 
3720 ! 


oe oH 


B-70 














3750 
3760 
3770 
47°,P1 
3780 
3790 
3800 
3640 
1) 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
1) 
3900 
3910 
3920 
3930 

































BWPeaOQ KLE: ! & PLOT KY DAT. 


PRINT PAGE 
PRINT “ PLOT XY DATA "* 
INPUT “MINI-RANGER4 , CONVERTED LORAN-C2,B0OTH3,OR ERROR PLOT 


ON Pl GOTO 3830 ,3790 , 3870, 3920 


CALL 
CALL 
CALL 


GOTO 
CALL 
CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 


CALL 
GOTO 
CALL 
CALL 
CALL 


GOTO 


Hi_lo(Pos_x(k) ,N,Maxx,Minx)> 
Hi_lo(Pos_y(*),N,Maxy,Miny) 
Xplot(4,Po0s_x(k),Pos_y(k) , Minx, Maxx ,Miny ,Maxy ,N,1,F$,ChS,L6,P 


Menu 

Hi_10¢Zx¢k) ,N, Maxx ,Minx) 

Hi_lo(Zy(%) ,N,Maxy ,Miny) 

Xplot¢4,ZxCe) ,Zy CR) Minx ,Maxx,Miny ,Maxy,N,1,F%,Ch$,L$,P1) 
Menu 

Hi_lo(Pos_x (XK) ,N,Maxx,Minx) 

Hi_lo(Pos_y(k),N,Maxy,Miny) 
Xplot(2,Pos_x(k) ,Pos_y(k),Minx, Maxx ,Miny,Maxy,N,1,F%,Ch$,L%,P 


Xplor(4, Zx(K),Zy CR), Minx ,Maxx,Miny,Maxy,N,2,F%,Ch$,L$,P1) 
Menu 

Hi_lo(Pos_x(k),N,Maxx,Minx) 

Hi_lo(Pos_y(k),N,Maxy,Miny>) 
X_errplot(4,Zx¢%) ,Zy(%) ,Pos_x(%) ,Pos_y(m) Minx ,Maxx,Miny,Maxy 


Menu 





i 
| 


3 PFO 


3980 
3990 
4000 
4040 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4081 
4062 
4083 
4084 
4085 
ACK (M)* 
4086 
4087 
4088 
4089 
4090 
4400 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4160 
4190 
4200 
4230 


KAP: 1 a PLOT GTLSAT DATA 
PRINT PAGE 
PRINT “ PLOT ALONG TRACK CROSS TRACK DATA * 


INPUT “MINIRANGERS, LORAN-C2 OR BOTH3? 1,2 OR 3"°,Data 

ON Data GOTO 4020,4060,4100 

CALL Hi_lo(Crt(%) ,N,Maxc ,Minc) 

CALL Hi_lo CAtt(%) ,N,Maxa,Mina) 

CALL Patct(Att(&) ,Crt¢k) ,N,Mina,Maxa,Minc ,Maxc ,Wt,Wf,F$,R,4,Data) 
GOTO Menu 

CALL Hi_lo(Cr(k) ,N,Maxc ,Minc) 

CALL Hi_loCAt(k) ,N,Maxa,Mina) 

CALL Patct(At(k) ,Ct(k) ,N,Mina,Maxa,Minc ,Maxc ,Wt,WF,FS,R,1,Datad 
INPUT “LIST OF ALONG/CROSS TRACK DATA? Y OR N",List$ 

IF UPCS(List$£4;419¢>"Y" THEN Menu 

PRINTER IS 0 

PRINT “FILE= "j;F$ 

PRINT LIN(4); "SAMPLE"; TAER(20);"ALONG TRACK (KM) ";TAR(40); "CROSS TR 


PRINT LIN(4) 

FOR I#i4 TON 

PRINT 1; TABC2S) ;At(I) 3 TARC 4S) 5C4rC I) KL000 

NEXT I 

GOTO Menu 

CALL Hi_lo(Ct(%),N,Maxc,Minc) 

CALL Hi_lo(Ctrt(%),N,Maxcc ,Mincc) 

Maxc=MAX (Maxc ,Maxcc) 

Minc=MIN(Minc, Mince) 

CALL Hi_1lo (At (x%),N,Maxa,Mina) 

CALL Hi 1o(Att(k),N,Maxaa,Minaa) 

Maxa=MAX(Maxa,Maxan) 

Mina=MIN(Mina,Minaa) 

CALL Patct(Att(k) ,Ctt(k) ,N,Mina,Maxa,Minc ,Maxc ,Wt,Wf,F$,R,1,Data) 
CALL Patct(At(&) ,Ct(k) ,N,Mina,Maxa,Minc ,Maxc ,Wt,WF,F$,R,2,Data) 
GOTO Menu 

' 


B-72 











4240 K20 3: 1 * PRE DEC YT Th I 
ii 
4 


ALA: ele See ee Se: pene een 





4250 PRINT PAGE if 

4260 PRINT “ TD PREDICTION “ | 

4270 MASS STORAGE IS ":TiS" 
4280 PRINTER IS 0 ; 
4290 FIXED 3 
4300 IF Ci=i THEN Wpfile i 
4320 Getch: INPUT “CHAIN FILE“,Chains { 

4340 IF LEN(Chain$)<¢>S THEN Getch | 

4350 ASSIGN #4 TO Chains | 

4355 Ci=4 | 

4360 READ #14 ;Xmit(e) Power (%) ,Emis(k) 

4370 Wpfile: INPUT "IS POINT OF INTEREST ON WAYPOINT FILE? Y OR N“,P$ ha 

4380 IF P$="N" THEN Input | 

4390 IF Fi=i THEN Jump . 

4400 INPUT “WP FILE NAME?” Files 

4410 Fizi ; 

4420 ASSIGN #4 TO Files f 

4430 READ #4; Wpt(*) 

4440 Jump: INPUT "WAYPOINT NO.2",Wn 

4450 Lat=Wpt (Wn, 7) 

4460 Lon=Wpt (Wn ,8) 

4470 GOTO Td 

4480 Input: INPUT “ INPUT LAT IN DEGREES ,MIN,SEC",D,M,S 

4490 Lat=D+mM/604+S/3600 

4500 INPUT “INPUT LON IN DEGREES,MIN,SEC",D,M,S 

4510 Lon=~(D+M/60+S/3600) 

4520 Td: FOR I=4 TO 4 

4530 CALL Range(Lat,Lon,Xmit(1,4),Xmit(1,2) ,Range(I)) 

4540 CALL Bear(Lat,Lon,Xmit(1,4),Xmit(1,2),Bear(1)) 

4550 NEXT I 

4560 CALL Td(Range (xk) ,V,Emis(x),Td(%)) 

4570 CALL G_mat (Power (x) ,V,Range(x),Bear(x),Zp(k) ,AG(K) ,GI23(K) ,G12¢K), 

G23(m) ,Gi3()) 

4580 Gdop: ! 

4590 Gdopi2=(G12(4 ,4)* 2464264, 2)*24+612(2, 4) *24+642(2,2)°2)4.5 

4600 Gdopi3=(Gi3(4 4242464301, 2)°24+64362, 4) *24643(2,2)°2)4%.S5 
4610 Gdop23=(023(4 ,1)*24+G623 04 ,2)*24+623(2,4)*24+623(2,2)°2)°.S 

4620 Gdopi23=(G123¢4 ,1)*24G6123(1,2)*24+6123(1 ,3)*24+6423(2,14) *24+6123(2,2) | 

924+G6123(2,3)°2)°.S 

4630 FIXED 4 

4650 Ch$=Chain$(4,4} 

4660 PRINT "CHAIN=";€h$ 

4670 PRINT “LAT=";Lat; TABC4S) 5 "LON=";Lon 

4680 FIXED 3 

4700 Conf=VAL (Chains{S,S)) 

4710 ON Conf GOTO Txy2,Twxy,Twxz,Twy2z 

4720 Txyz:PRINT "PREDICTED: TDX=";Td(4); TAB(3S) 3 "TDY="3 Td (2); TABCSS) 5 "“TDZ=" 

3Td¢3) 

4730 IF P$="N” THEN 4750 

4740 PRINT "SURVEYED: TDX=";Wpt(Wn,2);TAB(3S) 5 "TDY=";Wpt(Wn,3) ; TABCSS) 

s"TDZ=" ;WptiwWn, 4) 

4750 PRINT TAR(20);"RANGECKM) "3; TAER( 40); "BEARING (DEG) * 

4760 PRINT "MASTER"; TAR(20) ;Range (4) ; TABC(A0N) ; Bear (4) 
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4770 PRINT "X-RAY"; TAR(20) ;Range (4); TAB( 40); Bear (1) 

4780 PRINT "YANKEE"; TAB(20) ;Range (2); TAB(40) ; Bear (2) 

4790 PRINT “ZULU”; TAB(20) ;Range(3) 5; TAB(40) ; Bear (3) 
4800 PRINT TAB(22) ; "XYZ"; TAB(37); "XY"; TAB(S2) 5 "XZ" 5 TAB(67) 3 "YZ" 

4810 PRINT "GDOP (M/NANOSEC) "; TAB(20) ;Gdopi23; TAB(3S) ; Gdopi2; TAB( SO) ;Gdop 
43; TABC4S) ;Gdope3 


ao eevee mien nees: 





4820 GOTO Menu 
4830 Twxy:PRINT “PREDICTED: TDW="; Td (1); TABC3S) 3 “TOX="; Td (2) 5 TABCSS) ; *TDY=" 
3Td (3) 
4840 IF P$="N" THEN 4860 
4850 PRINT “SURVEYED: TDW=";Wot (Wn, 4); TABC3S) 5 “TDX=";WptCWn,2) ;TAR(SS) 
p“TDY="s;Wpt (Wn, 3) 
4860 PRINT TAB(20); "RANGE (KM) "3; TAB( 40); "BEARING (DEG) 
4870 PRINT “MASTER”; TAB(20) ;Range (4); TAB( 40); Bear (4) 
4880 PRINT "WHISKEY"; TAB(20) ;Range(i) 3 TAB( 40) ; Bear (i) 
4890 PRINT "XRAY"; TAB(20) ;Range (2) ; TABC40) ; Bear (2) 
4900 PRINT “YANKEE"; TAR(20) ;Range (3); TAB( 40); Bear (3) 
49106 PRINT TAB(22) 3 “WXY"3 TABC37) { "WX"; TAB(S2) 3 "WY"; TAB(67) 3 “XY” 
4920 PRINT “GDOP (M/NANOSEC) "; TAR( 20) ;Gdop123; TABC3S) ;Gdopt2; TAB(SD> ;Gdo 
pi3;TAB(65) ;Gdop23 
4930 GOTO Menu 
4940 Twxz:PRINT “PREDICTED: TDW=";Td(4) ; TABC3S) 3 "TDX=";3 Td (2) 3 TABCSS) ; “TDZ=" 
3Td¢(3) 
4950 IF P$="N" THEN 4970 
4960 PRINT "SURVEYED: TDW=";Wpt(Wn,4); TABCSS) ; "TDX=" ;,Wpt(Wn,2) ; TABCSS) 
;"TDZ=";Wpt (Wn, 4) 
4970 PRINT TAR(20) 5 "RANGE (KM) "3; TAB(C40); "REARINGC( DEG)” 
4780 PRINT "MASTER"; TAB(20) ;Range (4); TARC40) ; Bear (4) 
4990 PRINT "WHISKEY"; TAB(20) ;Range(4) 3; TAB(40) ; Bear (1) 
5000 PRINT "XRAY"; TAB(20) ;Range(?) ; TAR( 40) ; Rear (2) 
5040 PRINT "ZULU"; TABC20) ;Range (3); TAR( 4S) ; Bear (3) 
5020 PRINT TABC22) 5 "WXZ" 3 TABC37) ; "WX"; TABRCSA) 5 "WZ"; TABI G7) 3 "XZ" 
5030 PRINT "GDOP (M/NANOSEC)"; TAR(20) ;Gdopi23; TAB( 3S) ;Gdopi2; TAR(SO) ;Gdo 
i p13; TAB(6S) ;Gdopes 
S040 GOTO Menu 
S050 Twyz:PRINT "PREDICTED: TDW="5Td(4); TABCSS) 3 “TDY="3 Td (2) 5 TABCSS) 5 "TDZ=" | 
3703) 
a 5060 IF P$="N" THEN S080 
bt $070 PRINT “SWRVEYED: TDW=";Wpt (Wn, 4); TABCSS) 3 "TDY=" ;Wpt Cn, 3) ; TAR(SS) 
sy s°TDZ="3Wpt(Wn, 4) 
eae 5080 PRINT TAB(20); "RANGECKM) "3 TABC 40); "REARING (DEG) * 
$090 PRINT "MASTER"; TAB(20) ;Range (4); TAB(C 40) ; Bear (4) 
$100 PRINT "WHISKEY"; TAB(20) ;Range(i); TAB( 40) ;Bear(4) 
$110 PRINT "YANKEE" ;TABC20) ;Range (2) ; TAB(C 40) ; Bear (2) 
! 5120 PRINT "ZULU"; TABC20) ;Range(3) ; TAK(C40) ; Bear (3) 
5130 PRINT TAB(22) 3 “WYZ" 3 TABC37) 3 "WY" 3 TARCS2) 3 "WZ" 3 TABC 67) 3 “YZ" 
| S140 PRINT "“GDOP (M/NE@NOSEC)"; TAB( 20) ;Gdopi23; TABC3S) ;Gdopie; TAB(SO) ;Gdo 
of pi3;TAB(45) ;Gdop23 
5150 GOTO Menu 


5160 ! 





S470 Ke4 1! *” CALCULATE GREED WARP 


$160 PRINT PAGE 

$190 PRINT " CALCULATE GRID WARP “ 

$200 MASS STORAGE IS “;Tis* 

$210 PRINTER IS 0 

$220 ! INPUT CHAIN DATA 

5230 IF Ci=1 THEN S310 

$250 INPUT “CHAIN FILE?” ,Chains 

$270 IF LEN(Chain$)<>S THEN S250 

5280 ASSIGN #1 TO Chains 

5285 Ci=i 

5290 READ #41;Xmit(k) ,Power (Kk) ,Emis(k) 

S310 Ch$=Chain$[1,4] 

5320 Conf=VAL (Chain${S,S1) 

S330 ! CALCULATE CARTESIAN COGRDINATES OF XMITTERS 

S340 CALL Cart _coord(Xmit(k) ,Wpt(2S,7) ,Wpt(2S,8) ,Zxmit(x)) 
S350 ! REFERENCE WAYPOINT FOR CALCULATIONS 

5360 W=Wt 

$370 Zp(4)=WptCW,S) 

5380 Zp(2)>=WprttW, &) 

5390 ! CALCULATE AND PLOT TD ERRORS 

5400 ON Conf GOTO Wxyz,Wwxy ,Wwxz,Wwyz 

5410 Wxyz: ! 

5420 TCL =Wpr(W,2) 

5430 TC2.=Wpt CW, 3) 

$440 TCB=HWp tw, 4) 

5450 CALL Warp (Xk) , YOK) ,Z0K), ZK CK), Zy CK), ZOCK), TOK)  Zamit Ce) VIN, ATT OX 
>,R,Wt,WF,Conf, FS) 

$460 GOTO Menu 

5470 Wwxy:! 

$480 TCdd=Wpt dW, 4) 

$490 TC2)=Wpt CW, 2) 

5500 TCS=Wp rdw, 3) 

$510 CALL Warp CWCk) XCM), YOR), ZxKOR) , Zy CK) ZH CK) TOK) ,Zxmit CK) VIN, ATT CK 
>,R, Wt, WE, Conf ,FS$) 

$$20 GOTO Menu 

S530 Wwxz:! 

$540 TCL =WprteW, 4) 

$550 TC2d=Wpt(W,2) 

5560 TCS) =WprtcwW, 4) 

SS70 CALL Warp (WOK), XC), Z0K) ZK OK), Zy OK) Zp CR) , TOK), Zammit CK) VIN, ATTOK 
>,R, Wt, WE, Conf ,FS) 

SS80 GOTO Menu ’ 

S590 Wwyz:! 

5600 Tih =Wpe(wW,1> 

S610 TC]dzWipt (Ww, 3) 

S620 TZ) =Wpt CW, 4) 

S630 CALL WarpCWCk) ,YCK) ,Z0K) ,ZxCK) , Zy CR), ZH CR) TOK), Zemit(R) VIN, ATTCK 
>,R, Wt, WF, Conf, FS) 

$640 GOTO Menu 

5650 ! 








SFO Kees } DALSY CHAIN 


5680 PRINT PAGE 

5690 PRINT “ DAISY CHAIN " 

S700 PRINTER IS 0 

5710 MASS STORAGE IS ":TiS" 

$720 ! INPUT CHAIN DATA 
$730 IF Ci=4 THEN $810 

5750 INPUT “CHAIN FILE" ,Chain$ 
5770 IF LEN(Chain$)<>S THEN S750 
S780 ASSIGN #4 TO Chains 

$785 Ci=4 

$790 READ #4;Xmit(x) ,Power (xk) ,Emis(®) 
5810 Conf=VAL (Chain$(S,51) 

$820 Ch$=Chain$(1,4] 


S830 ! INPUT WAYPOINT FILE DATA 
5840 IF Fi=4 THEN S890 
5850 INPUT "WP FILE?" ,Files 


5860 Fist 
5870 ASSIGN #1 TO Files 
5880 READ #4 ;Wpt¢x) 


$890 ! CALCULATE XY COORDINATES OF TRANSMITTERS 

S900 CALL Cart _coord(Xmit(k) ,Wot(2S,7) ,Wot(25,8) ,Zxmit(x)) 
5910 ! INPUT START AND STOP WAYPOINTS 

5920 INPUT "START WAYPOINT NO.?",Rw 

5930 INPUT "END WAYPOINT ?",Iw 

$940 ! CALCULATE G- MATRICES FOR Rw 


5950 FOR I=4 TO 4 

5960 CALL Rb(Wpt(Rw,S), Wot (Rw,6),Zxmit¢1,4),Zxmit(1,2) , Hear (I) ,Range(1)) 
5970 NEXT I 

S980 Zp (i) =Wpt(Rw,5) 

5990 Zp(2).=Wpt (Rw, 6) 

6000 CALL G_mat(Power (¥) ,V,Range(&) , Bear (xk) ,Zp(k) ,Aatk) ,G123¢0K) ,G1i2Ck) ,G 
23¢(k) ,Gid(K)) 

6010 ! INPUT TWO OR THREE TD SOLUTION 

6020 INPUT “TWO OR THREE TD SOLUTION? 2 OR 3",S0 

6030 IF (S0¢(2) OR (S0>3) THEN 6020 

6040 IF So=2 THEN Ctwo 

6050 IF So=3 THEN Cthree 





6060 ! CALCULATE POSITION OF Iw 

6070 Ctwo: ' TWO TD SOLUTION 
6080 CALL Wp2CWpot(e) ,Conf Rw, Tpp x) ,Pair,Zpp (Kk) ,Gi2CK) ,GARCK) ,GI3(K) , GC 
KD, LS, ZxmitCk),Zxm(K)) 

6090 PRINT “TWO TD SOLUTION, CHAIN=";Ch$;"  LOPs=";L$ 

6100 CALL Wpf2(Wpt(x) ,Conf,Pair,Iw,Tqq(x)) 

6110 CALL Fehg(Zxm(e) ,Zpp(k), Tpp(*) , Tqaqg(®) ,G(k) ,ZQ(k) ,V,2) 

6120 GOTO Print 

6130 Cthree: ! THREE TD SOLUTION 

6140 CALL Wps3(Wpt (x) , Conf ,Rw,Tp (x) ,Zpp (x) , LS) 

6450 PRINT “THREE TD SOLUTION, CHAIN=";Ch$;"  LOPs="5L% 

6160 CALL Wp3(Wpt(k),Conf,Iw,Tq¢k) ,Z2xx Ck), LS) 

6170 CALL Feha(Zxmit(R), Zpp (a), Tptk), Tak), GL23CK) ,Z7qQ(K) ,V,3) 

6180 Print; ! PRINT RESULTS 

61990 DEG 


6200 Dx=Zq(1,1)-Wpt(Rw,S) 





as 


a. 


Se capraty ore TMs 





6240 Dy=Zq(2,1)~Wpt(Rw,6) 


6220 Dlat=Dy/(4,852%60) 

6230 Dlon=Dx/(1.8S2x60xCOS8 (Wp t(Rw,7))> 

6240 Lat=Wpt(Rw,7)+Dlat 

6250 _Lon=Wpt(Rw,8)+Dlon 

6260 A=ATN(Dx/Dy) 

6270 IF Dy<0 THEN A=A+180 

6280 IF ACO THEN A=A+360 

6290 R=SQR (Dx *2+Dy*2) 

6300 FIXED 0 

6310 PRINT “LOCAL GRID CENTERED AT WP";25 

6320 PRINT " WAYPOINT"; Iw; "REFERENCED TO";Rw 

6330 FIXED 3 

6340 PRINT TABC10) 5 "Dx="3Dx,"Dy=";Dy 3 TABC 40); "D_lat=";Dlat,"D_lon=";Dlo 
n 

6350 PRINT TAK(40) ; “ANGLE="34;" RANGE="5R3 "KMC"5R/1.8523 "NM, "3R/.91444 
3"KYDS)" 

6360 PRINT TARC40) 3 "X="3Zq64,4), "Y=" 3Zq(2,4) 5 TABC4AO) 3 “LAT=";Lat, "LON="; 
Lon 

6370 PRINT “CURRENT CO-ORDINATES: " 

6380 PRINT TAB(10); "X=";Upt(Iw,S),"Y=";Wpt (Iw, 6); TAB(C 40); ""LAT="j,Wot(lIw, 


7), "LON="j;Wot(Iw,8) 


6390 INPUT "CHANGE POSITION AND LAT/LON OF WAYPOINT OF INTEREST? Y OR N 
“,Chs 

6400 IF Ch$<(>"¥" THEN 6460 

6410 Wpt(Iw,S)=Zq(4, 4) 

6420 Wpt(Iw,6)=Zq(2,4) 

6430 Wptilw,7)=Lat 

6440 Wpt(Iw,8>=Lon 

6450 PRINT "WAYPOINT TABLE CHANGED" 

6460 GOTO Menu 

6470 =! 
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6490 
6500 
6510 
6520 
6530 
6550 


PRINT PAGE 

PRINT “ FILE WAYPOINT DATA “ 
MASS STORAGE IS ":T1iS* 

CALL Wpofile(Wpt(k), Fi, Files) 
GOTO Menu 

’ 


Oe 
Ts eae 





3&0 Kea: ! = TH MOVE 


6570 PRINT PAGE 

6580 PRINT “ MOVE: CALCULATES Tdq=Tdpth(Zq)-h(Zp) * 
6590 PRINTER IS 0 

6600 MASS STORAGE IS “:T1iS" 

6610 FERED 3 

6626 INPUT CHAIN DATA 

6630 IF Ci=41 THEN 6710 

6650 INPUT “CHAIN FILE?" ,Chains 

6670 IF LEN(Chain$)<¢>S THEN 6650 

6680 ASSIGN #1 TO Chains 

4668S Ci=i 

6690 READ #1;Xmit(k) ,Power(*) ,Emis(x) 

6710 Ch$=Chain${i,41 

6720 Conf=VAL (Chain$(S,51) 

6730 ! INPUT WAYPOINT FILE DATA 

6740 IF Fi=i THEN 6790 

6750 INPUT “WAYPOINT FILE?",Files 

6760 Fizi 

6770 ASSIGN #4 TO Files 

6780 Ben #i;Wpt(x) 

6790 INPUT WAYPOINT NUMBER AND OFFSET 
6800 INPUT "WAYPOINT?" ,Wp 

6810 INPUT “Dx/Dyi OR Range/Hearing2, 1 OR 2",Move 
6820 IF (Move(>4) AND (Move<>2) THEN 6810 
6830 ON Move GOTO X_y,Rb 

6840 X_y: INPUT "INPUT Dx(KM)",Dx 

6850 INPUT “INPUT Dy(KM)",Dy 

6860 GOTO 6900 

6870 Rb: INPUT “RANGE(KM) AND BEARING(DEG)",R,E 
6880 Dx=RKSIN(B) 

6890 DynReepesP? 





6700 CALCULATE XY COORDINATES OF TRANSMITTERS 
6910 CALL Cart _coord(Xmit (x) ,Wpt¢2S,7) ,Wpot¢2S,8) ,Zxmi te) >) 
6920 CALCULATE h(Zp) 


i 6930 rpticueeac es 
6940 Zp(2)=Wprt (Wp, 6) 
i 6950 FOR I=i TQ 4 
6960 CALL Rb(Zp(4),Zpt2),Zxmit¢1,4),Zxmit(1,2) ,Bear¢l) ,Range(l)) 
6970 NEXT I 
. 6980 FOR I=i TO 3 
. 6990 TCI) =(Range(I)-Range(4))/V 
7000 NEXT I 
7010 ! CALCULATE Dtd=h(Zq)-h(Zp) 
7020 Zp(1)=Zp (4)+4Dx 
7030 Zp (2)=Zp(2)+Dy 
7040 FOR I=i TO 4 
7050 CALL Rb(Zp(4),Zp(2) , Zxmit(l,4>,Zxmit¢l,2) Bear (1) ,Range(I)) 
7060 NEXT I 
7070 FOR I=4 TO 3 
7080 TCT) =CRange(I)-Range(4))/V-T(T) 
7090 NEXT I 
7100 ! PRINT RESULTS AND APPLY CORRECTION TO WPCOPTIONAL) 
7110 FIXED 3 
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7130 PRINT “RESULTS IN TD CHANGES(MICROSEC) OF:" 

7440 ON Conf GOTO Dxyz,Dwxy,Dwxz, Dwyz 

7450 Dxyz:PRINT TAB(S); "Dtdx=";T(4) 3 TABC20) 3 “Dtdy=";T(2y; TAB(40) ; "Dtdz="; TC 

3) 

7160 INPUT “APPLY CORRECTION TO WP? Y OR N",Cors 

7470 IF Cor$<(>"“Y¥" THEN Menu 

7180 Wpt(Wp ,2)=Wpt(Wp,2) +T (4) 

7490 Wpr(Wp ,3d.=“Wpt (Wp ,3)+T(2) 

7200 Wpt (Wp ,4)=Wpot (Wp ,4)4+7(3) 

7210 Wpt (Wp ,S)=Zp (i) 

7220 Wet(Wp ,6)=Zpl2) 

7240 GOTO Done 

7250 Dwxy:PRINT TABC(S) 3; "Dtdw="3;T¢(1) 3 TAR(20) 5 "Dtdx="3T(2) 5 TABC 40) 5 "Dtdy="5 TC 

3) | 

7260 INPUT "APPLY CORRECTION TO WP? Y OR N"“,Cor$ iS 

7270 IF Cor$<>"Y" THEN Menu | 
| 7280 Wet(Wp ,i)=WprCWp,4>+T(41) § 


7420 PRINT “AT WAYPOINT: ";Wp3;", A MOVE OF Dx=";Dx;"KM AND Dy=";Dy; °KM" 


7290 Wpt(Wp,2)=Wpt(Wp,2)+T(2) 
7300 Wet(Wp, 3)=Wpt(Wp,3)+T¢3) 
7310 Wpt (Wp ,5)=Zp (4) 
7320 Wet(Wp ,6)=Zp(2) 
7340 GOTO Done 
| 7350 Dwxz:PRINT TAB(S) 3 "Dtdw=";T(4) 3 TABC20) 3 “Dtdx="3TC2) 3 TABC 40) 5 “Dtdz=" 3 TC 
3) 
7360 INPUT "APPLY CORRECTION TO WP? Y OR N",Cors 
7370 IF Cor$<>"Y¥" THEN Menu 
7380 Wet(Wp , 4 =WptCWp,4)+T¢4) 
7390 Wpt(Wp,2.=Wot(Wp,2)+T(2) 
7400 Wpt(Wp ,4)=Wpt (Wp ,4)4+T¢3) 
7410 Wpt(Wp,S)=Zp (i) 
7420 Wpt(Wp ,6)=Zp(2) 
7440 GOTO Done 
7450 Dwyz:PRINT TAB(S) 3 "Dtdw=";T(4) 5; TABC20) 5 “Dtdy=";T(2) 5 TABC 40) 5 "Dtdz=";T¢ 


Se 


Se Pee ee ne 


4 


7460 INPUT “APPLY CORRECTION TO WP? Y OR N”,Cors 
7470 IF Cor$<(>"Y" THEN Menu 
7480 Wet(Wp,d=Wpt(Wp,4)4+T(4) 
7490 Wpt(Wp, 3) sWpt(Wp,3)+T (2) 
7500 WptCWp ,4.=WpttWp,4)+T(3) 
: 7510 Wpt(Wp ,S)=Zp (4) 
. 7520 Wpt(Wp ,6)=Zp (2) 
: 7530 Done:PRINT “WAYPOINT TD AND POSITION CORRECTED” 
7540 GOTO Menu 
7560 ! 
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PSIVO KEeSs1t + LINK DATA FELES 


75680 PRINT PAGE 

7590 PRINT " LINK TD DATA FILES “ 
7600 MAT W=(0) 

7640 MAT X=(0) 

7620 MAT Y=(0) 

7630 MAT Z=(0) 

7640 FOR I=4 TO 400 

7650 Use" 

7660 NEXT I 

7670 CALL Link (WOK), XOK) YOK) ZK) ,RACK) RACK) ,USCR) NFS) 
7680 GOTO Menu 
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FPEeaPQD Ke&: 1 a STORE CHATN DATA 


7700 MASS STORAGE IS “:T4S" 
7740 PRINTER IS 16 
7720 PRINT PAGE 
7730 PRINT “ STORE CHAIN DATA “ 
7733 Mask$="XYZWXYWXZWYZ" 
7770 INPUT “INPUT CHAIN FILE NAME",Chain$ 
7775 IF (VAL(Chain#[S,51)>4) OR (VAL(Chain$[S,51)¢4) OR (LEN(Chain$)<¢)5) 
THEN 7770 
7777 Conf=VAL(Chain$[S,5]) 
7780 INPUT “IS THIS FILE CURRENTLY ON TAPE?",Q$ 
7782 IF UPC$(Q$)="N" THEN CREATE Chain$,4 
7783 ASSIGN #4 TO Chains 
7784 IF UPC$(Q$)="Y" THEN READ #4;Xmit(e) Power (x) ,Emis(x) 
7785 Op: INPUT "MODIFY/CREATE1; LIST2; SAVE3; QUIT4",Opt 
7786 IF (Opt<i) OR (Opt>4) THEN Op 
7787 ON Opt GOTO Cr,Lst,Sve,Menu 
7840 Cr:! INPUT MASTER DATA 
7820 PRINT PAGE,LIN(20) 
7824 D=M=S=0 
7830 PRINT "INPUT MASTER DATA“ 
7840 INPUT "LATITUDE? D,M,S",D,M,S 
7844 IF (D=0) AND (M=0) AND (S=0) THEN 7854 
{| 7850 Xmit(4,4)=D+M/60+S/3600 
7854 D=M=S=0 
7860 INPUT "LONGITUDE? D,M,S",D,M, 


i : 7864 IF (D=0) AND (M=0) AND (S=0) THEN 7880 
4 7870 Xmit¢4,2)=—(D+M/60+S/3600) 
i 7880 INPUT “POWER LEVEL? KW" ,Power (4) 

7890 ! INPUT SECONDARY DATA 


7894 Indx=(Conf-1)x3 
7960 FOR I=4 TO 3 
7970 PRINT PAGE,LIN(20) 
i 8000 PRINT “INPUT TD";Mask$[Indx+1;4];" DATA" 
| 6004 D=M=S=0 
i 8040 INPUT "LATITUDE? D,M,S",D,M,S 
| 8044 IF (D=0) AND (M=0) AND (S=0) THEN 8024 
Bo 8020 Xmit(1,1)=B+M/604+5/3600 
to 8024 D=M=S=0 
ae . 8030 INPUT "LONGITUDE? D,M,S",D,M,S 
8034 IF (D=0) AND (M=0) AND (S=0) THEN 8050 
8040 Xmit(1,2)=-(D+M/60+S/3600) 
‘ 8050 INPUT “POWER LEVEL? KW",Power(I) 
; 8060 INPUT “EMISSION DELAY?",Emis(I) 
: 8070 NEXT I 
: 8074 PRINT PAGE 
_ 8072 GOTJ Op 
a : 808N Let: ! PRINT DATA TABLE 
“ 8084 PRINTER IS 0 


& 
; 8090 PRINT LIN(S);"CHAIN DATA FOR FILE: ";Chains 
' 8100 PRINT LIN(4); "STATION"; TAB(13); "LAT"; TAB(32) 5 "LON"; TAB(SO); "POWER (K 
; W)";TAB(64) ; "EMISSION DELAY" 

| 8160 IMAGE 6A,5X,DDD,AA,DD,"? “,DD.DD,"??",4X,DDD,AA,DD,"? ",DD.DD,""?",4 
a 


X,DDDD,8X ,DNDDD. DD 





3 


8461 DegS=CHR$ (179) 

8165 I=4 

8166 GOSUB Unpak 

8170 PRINT USING 8160; "MASTER" ,Degi , Degt ,Mini,Seci, Deg2, Deg$ ,Min2,Sec2,Po 
wer (1) 

8180 FOR I#i TO 3 

6184 GOSUB Unpak 

8182 PRINT USING 8160 ;Mask$[ Indx+13;11,Degi,Deg$, Mini, Seci ,Deg2, Degs ,Min2, 
Sec2,Power (I) ,Emis(I) 

8183 NEXT I 

8200 PRINT LIN(S) 

8204 PRINTER IS 416 

8210 GOTO Op 

8220 Unpak:! 

8224 Degt=INT(Xmit(l,4)) 

8222 MinL=INTCFRACTCXmit¢(1,4) >*60) 

8223 Seci=FRACTCFRACT(Xmit¢I,i))*%60)%60 
8224 Deg2=INT(—-Xeit(I,2)) 

8225 Min2=INTCFRACT(-Xmit¢(1,2))%60) 

8226 Sec2=FRACT(FRACT(-Xmit¢(1I,2)>*60)k60 
8227 RETURN 

8228 ! 

8240 Sve:! FILE DATA 

8260 ASSIGN #1 TO Chains 

8270 PRINT #14;Xmit(k) ,Power (xk) ,Emis(%) 
8280 GOTO Menu 


8300 








S340 Ke711 * REFLECT THe TO WAYPOINT 


8320 MASS STORAGE IS ":Tis® 

8330 PRINT PAGE 

8340 PRINT “ REFLECT TDS TO WAYPOINT * 

e350 ! INPUT CHAIN DATA 

8360 IF Cisi THEN 8440 

8380 INPUT "CHAIN FILE",Chain$ 

8400 IF LEN(Chain$)<>S THEN 8380 

84140 ASSIGN #14 TO Chains 

8441S Cisi 

8420 READ $1;Xmit(x) Power (#) ,Emis(&) 

8440 Conf=VAL (Chain${[S,5)) 

8450 Ch$=Chains(i,4} 

8460 ! INPUT WAYPOINT FILE DATA 

8470 IF Fi=i THEN 8S20 

8480 INPUT “WAYPOINT FILE NAME?" ,Files 

8490 Fi=1 

8500 ASSIGN #1 TO Files 

8510 READ #i ;Wpt(%) 

8520 CALCULATE XY COORDINATES OF XMITTERS 
8530 CALL Cart_coord(Xmit(k) ,Wpt(25,7) ,Wpt¢2S,8) ,Zxmit cK) ) 
8540 INPUT WAYPOINT OF INTEREST 

8550 INPUT “WAYPOINT WHERE DATA IS TO BE REFLECTED?" ,W 
8560 ! CALCULATE REFLECTED TD ARRAYS 

8570 CALL Reflect(W,WptCk) , Wik), XCK),YCK) 20K), ZKCK) , Zy (HK) Conf, Zxmit (ek) ,N 
) 

eseo0 ot CALCULATE STATS AND PRINT RESULTS 
8590 PRINTER IS 0 

8600 PRINT “RESULTS OF REFLECTING FILE “;F%;"TDs TO WAYPOINT" ;W 
8610 F¢=FS$&">” 

8620 PRINTER IS 46 

8630 GOTO K2 ! CALCULATE STATS 


rear arasiy 





BWG@aodg Kee: ! 2REATE REF STA FILE 


8650 PRINT PAGE 

8660 PRINT “ CREATE OR READ REFERENCE STATION FILE * 
8670 MASS STORAGE IS “:T4S" 

8680 CALL Ref_file(Ref(%) ,RefS(#) ,Rps) 

8690 GOTO Menu 

8700 END 
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SUB Reg (Stat(&) ,Cov(e) ,S(&) , RCH) ,OF Fset(K)) 
OPTION BASE i 
DEFAULT ON 
$(4,4)"S(4,2)28(4,3)2Stat(3,1)+0ffset(i) 
$(4,4)=8(1,5)=Stat(3,2)+0ffset(2) 
$¢4,6)8Stat(3,3)+0ffset(3) 
$(2,4)=Stat(3,2)+0ffset(2) 
$(2,2)=8(2,4)=Stat(3,3)+0ffset(3) 
§(2,3)=8(2,5)=5(2,6)2Stat(3,4)+0ffset(4) 
$(3,1)28(3,2)=8(3,3)=8tat(4,4) 
§(3,4)2=9(3,5)=Stat (4,2) 
§(3,6)=Stat(4,3) 
$(4,41)=Stat(4,2) 
§$(4,2)=8(4,4)=Stat(4,3) 
§(4,3)=8(4,5)28(4,6)2Stat (4,4) 
FOR I=i4 TO 6 
Ind_var:! 
Tuzi 
D=2 
IF $¢4,1)998¢3,1) THEN Iv=2 
IF 8(4,1)9S(3,1) THEN D=4 
R(3,1I)=2Iy 
Slope: ! 
R¢4,1)=Cov(3,1)akS(D+2,1)/S(I1v+2,1) 
IF Tve2 THEN R(4,1)=1/R (1,1) 
Residual: ! 
C=1-Cov(3,1)%2 
IF C<O0 THEN 9000 
R¢(2,1)=S(D+2,1T)xC*.5 
NEXT I 
SUBEND 

! 
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9040 SUB Print(Stats(&) ,O_set(&>,Cov(k>,R(k),Sample,V) 

9050 OPTION BASE 4 

9054 DIM Bar${80) : 

GOSS BOT 68 oe ee ers ape Anat A a Meas SO 

9060 FOR I=i TO 3 

9070 FOR J=ei TO 6 

9080 IF R(I,J)>400 THEN R(I,J)=0 

9096 IF Cov(3,J)>400 THEN Cov(3,J3)=0 

9100 NEXT J 

9440 NEXT I 

9424 PRINT Bars 

9130 IF V=2 THEN 9280 

91440 PRINT LIN(2);TAR(21)5;" TDW “;TABC36)3;" TDX “;TAB(S1i)9;" TDY "3; TAB(66);" 
Toz * 


9150 FIXED 3 
9160 PRINT LIN(C4) ;TABC4) 3} “CUMULATIVE AVERAGE”; TAB(20) ;Stats(3,41)940_setcd) 


3 TAB(SS) ;Stats(3,2)+4+0_set(2);TAB(SO) ;Stats(3,3)+0_set(3) 3 TAR(65) ;Stats(3,4) 
+0_set¢4) 

9170 PRINT LINC1);TABC1) 3; "STANDARD DEVIATION"; TAB( 20) ;Stats(4,4);TARC3S); 
Stats (4,2); TABCSO) ;Stats(4,3); TAR(65) ;Stats(4, 4) 

9490 PRINT LIN(4);TAR(1);"TD PAIR"; TABRC47) 3 "WX" 5 TARC2A7) 5 "WY" 3 TABC 37) 3 “WZ" 
3 TABC47) 5 "XY" 5 TABCS7) 5 "XZ" 5 TAR(67) 5 "YZ" 

94190 PRINT LINC4);TABCL) 3 "CORR COEF"; TABC1S) ;Cov(3,4); TARC2S) ;Cov(3,2);TA 
BC3S) ;Cov 3,3) 5 TABC 4S) ;Covt3, 4) 5 TAB(SS) ;Cav(3,5) 3; TAB( 65) ;Covl3, 6? 

9200 PRINT LIN(4) 3; TABCL) 5 “SLOPE”; TARC4S) 5R( 4,4) 3 TABCAS) 5 R(1,2) 5 TABCSS) sR C 
1,3); TABC4S) 5R(64,4) 5 TABCSS) 5R(4,5) 3 TABC6S) SRL, 6) 

9210 PRINT LIN(4);TABC4) 3 "RESIDUAL"; TAR(45) ;R62,4) 3 TABCAS) 5R (2,2) 5 TABC 3S) 
sRC2,3) 5 TABC 4S) 5R¢2, 4) 3 TABCSS) 5R(2,5) ; TABC 6S) 5R (2,6) 

9220 STANDARD 

9230 PRINT LIN(1);TABC4); "IND VAR"; TABCL7) 5R63,4) 3 TABRC2A7) 5 R(3,2) 5 TABC37) 5 
RC3,3) 3 TABC47Z) 5R(3,4) 3 TAB(S7) 5R(3,5) 5 TABC G7) 5 RC, 6) 

9240 PRINT LIN(4); “SAMPLES="; Sample 

9250 PRINT Bars 

9260 PRINT LIN(G4) 

9270 SUBEXIT 

9280 FIXED 3 

a PRINT LINCS) ;TABC24)3;" RL “3TABC3O);" R2 “;TABCS1);" X “;TAB( 66) 
> es 

9300 PRINT LIN(4);TABC4) ; "CUMULATIVE AVERAGE”; TAB(20) ;Stats(3,41)+0 set (i) 
3 TABC3S) ;Stats(3,2)+0_set(2) sTABCS0) ;Stats(3,3)+0_set(3); TAR(6S) ;Statsa(3, 4) 
+0_set (4) 

9310 PRINT LINC4);TABCL) ; "STANDARD DEVIATION"; TABC20) ;State (4,4); TABCSS); 
Stats(4,2) ; TAB(SO) ;Stats (4,3); TABC6S) ;Stats(4,4) 

9320 PRINT Bars 

9330 SUBEND 

9350 { 








SUB Hi_10(X(e),N,Hi,Lo? 
Hi=Xx¢4) 

Lo=X¢4) 

FOR I=4 TON 
Lo=MIN(X(I),Lo) 
Hi=MAX(X¢1) Hi) 

NEXT I 

SUBEND 





9440 SUB Plot(Lx,Hx,Ly,Hy,Xx,Yx,XCK) , YC") ,S4,N,X6, YS, FS) 
9450 OPTION BASE 4 
9460 PLOTTER IS £3, "GRAPHICS" 
9470 GRAPHICS 
9480 LOCATE 10,90,20,100 
9490 SHOW Lx~4,Hx+4,Ly—4,Hy+4 
9500 AXES 4,4,Xx,Yx 
9540 LINE TYPE 2 
9520 FOR I=4 TON 
9530 DRAW X(I),YCT) 
9540 NEXT I 
9550 LINE TYPE 4 
9560 MOVE Lx, S4e(Lx-Xx+Yx 
9570 DRAW Hx ,Sik(Hx-Xx)+Yx 
9580 Label:CSIZE 3 
9590 LORG S 
9600 LOCATE 0,425,0,20 
9610 SCALE 0,100,0,20 
| 9620 MOVE 50,45 
9630 LABEL USING "#,K";X$;" VS ";Y$%3;" & REGRESSION LINE" 
9640 MOVE 50,10 
: 9650 LABEI USING "K";"ONE MICROSEC/DIV" 
| 9660 MOVE 50,5 
A 9670 LABEL USING "K";"C"LE="aFs 
el. 9680 PAUSE 
9690 INPUT "HARD COPY? Y OR N",Hcs 
a 9700 IF Hc$<>"Y" THEN 9720 
V 9740 DUMP GRAPHICS 
3 





9720 EXIT GRAPHICS 
9730 SUBEND 
9750 =! 
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9760 SUB Rplot(Iy¢e) , DCH), SCH), ROX) PrN, ViS, V2$,FS) 
9770 OPTION BASE 4 
9780 P4=4 
9790 PRINTER IS 0 
' 9800 INPUT “PLOT RESIDUALS VS N(4) OR INDEPENDENT VAR(2)",P4 
98140 PLOTTER IS 43, "GRAPHICS" 
9820 GRAPHICS 
9830 LOCATE 410,100,20,80 
9840 IF Pi=i THEN 9890 
9850 CALL Hi_lo(Iv(x),N,Imax,Imin) 
9860 SCALE Imin-2,Imax,-5,5 
9870 AXES 41,4,Imin,0 
9880 GOTO 9910 
9890 SCALE 0,N,-5,5 
9900 AXES 10,41,0,0 
9940 LINE TYPE 2 
9920 RS=VAL$(R(2,Pr)) 
| 9930 M=R(4,Pr) 
| 9940 IF R(3,Pr)=2 THEN M=4/M 
9950 Iv=t 
9960 D=2 
9970 IF R(3,Pr)=2 THEN Iy=2 
{| 9980 IF R(3,Pr)=2 THEN D=4 
9990 Da=S(D,Pr) 
40000 Ia=S(Iv,Pr) 
40040 FOR I=4 TON 
140020 Dp=DatMxk(Iy(I)-Ia) 
40030 Dr=Dp-D¢(1) 
i 10040 Nr=Dr/R(2,Pr) 
| 400S0 IF Nr)>S THEN PRINT I,Nr 


ee ee eT eT Tee 
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40060 IF P4=i THEN DRAW I,Nr 
40070 IF Pi=2 THEN DRAW Iy(1),Nr 
40400 NEXT I 
10440 PRINTER IS 46 
ia 40420 LINE TYPE i 
| 40430 Ctr=N/8 
Pt 40440 IF Pi=2 THEN Ctr=Imin¢(Imax-Imin)/8 
401450 MOVE Ctr,-4 
40454 IF Pi=4 THEN LABEL USING "K"; "NORMALIZED RESIDUALS VS SAMPLE NUMBER" 
40460 IF Pi4=2 THEN LABEL USING “"K";“NORMALIZFD RESIDUALS VS INDEP VAR" 
£0170 MOVE Ctr,-S 
101480 LABEL USING "K";V4$;" AND ";V2$3;" DATA";"; RES=";R$;," MICROSEC"™ 
: 410190 MOVE Ctr,-6 
' 40200 LAEEL USING "K"; "TRACKLINE=";F$ 
40204 IF Pi=i THEN 10320 
410210 MOVE Ctr,4 
40220 LAREL USING “K"“;Imin 
10230 MOVE Ctr,S 
40240 LABEL USING "“K";"IND VAR MIN" 
| 40320 INTEGER K 
| 403241 LORG §S 
i 410330 IF Piei THEN 10360 
10340 K=Imnax-Imin 
10350 GOTO 10390 
10360 K=N/40 





| 





10370 
10380 
10390 
10400 
10404 
40410 
40420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
40660 
40670 
10680 
10700 


eee ecient eee SL eae aoe ener 


IF (ND400) AND (Pi=4) THEN K=N/50 
Step=i 

IF (P4222) AND (K>10) THEN Step2S 
FOR Is0 TO K STEP Step 

IF I=0 THEN 10480 

Mx=Imin+lI 

IF Pi=4 THEN Mx=410%T1 

IF (N>400) AND (P4=4) THEN Mx=S0xI 
MOVE Mx,-4 

IF Pi=i THEN L=Mx 

IF Pi=2 THEN L=I 

LABEL USING “K"5L 

NEXT I 

IF Pi=2 THEN 10580 

FOR I=i TOS 

M=N 

MOVE -M/16,I 

LABEL USING "K";3] 

MOVE -M/i5,~-I1 

LABEL USING "“K"3-I 

NEXT I 

GOTO 10640 

FOR I=i TO 5S 

MOVE Inin-3,I 

LABEL USING "K";I 

MOVE Imin-3,-I 

LABEL USING "K";-I 

NEXT I 

PAUSE 

INPUT “HARD COPY? Y OR N”,Hc$ 
IF Hc$="Y" THEN DUMP GRAPHICS 
EXIT GRAPHICS 

SUBEND 

’ 
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10710 
40720 
10730 
410746 
10750 
10760 
410770 
10780 
10790 
10800 
10810 
10820 
10850 





SUB Bear (Pi ,P2,P3,P4,B) 

! PROGRAM TO CALCULATE BEARING BETWEEN TWO POINTS 
1 (P4,P2) AND (P3,P4).POSITIONS ARE INPUT IN DEGREES 
! OF LAT/LON - N AND & ARE +; S AND W ARE - 

DEG 

PS=COS(P3) 

P6=P 4-P2 

P7=SINCPS)*COS(P1)-PSKSIN(P4)KCOS (P46) 
B=ATNC(PSESIN(P6) /P7) 

IF P7<0 THEN B=8+180 

IF B¢CO THEN B=b+360 


SUBEND 
! 
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10860 SUB Range(P1,P2,P3,P4,R> 

410870 ! PROGRAM TO CALCULATE RANGE IN KILOMETERS BETWEEN TWO 
10880 | POINTS (P1,P2>) AND (P3,P4). POSITIONS ARE IN DEGREES 
40890 ! (LAT,LON) . NORTH AND EAST ARE +. ‘ 
10900 DEG 

10940 P6=STN(P4) 

410920 P7=SIN(PS) 

10930 P6=P6*P7+COS(P4)>sCOS(P3)xCOS(P4-P2) 

410940 RAD 

10950 P9=(4-P8*%2)°.5 

10960 PS=ATN(P9/P8) 

10970 P1i02(P6+P7)*2u(3¥P9-PS)/(14+P8) 

10980 P1ii=(P6-P7) *2e(3KP9+P5)/¢(41-~PB) 

10990 DEG 

14000 R=6378 .135KPS5+5,346125%(P10-Pi4) 

14010 SUBEND 

41040 ! 
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44150 
3(%)) 
11460 
14170 
11180 
11190 
41200 
411210 
11220 
11230 
4141240 
14250 
11260 
41270 
11280 
11290 
411300 
41340 
11320 
11330 
11340 
14350 
11360 
14370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
41450 
11460 
11470 
11480 
11490 
41500 
114510 
11520 
141530 
11540 
41550 
11560 
41570 
11580 
11590 
11600 
41610 
11620 
41630 
11640 


SUB G_mat(P (x) ,V,Range(®) , Bear (x) ,Zp¢(®) ,ACK) ,G123(%) ,Gi2(k) ,G23¢%) , Ci 


1 PROGRAM CALCULATES: 

! ACK) ;GRADIENT MATRIXC(CXY TO TD) 

' G123(%) }GRADIENT MATRIX (TD TO XY),3-TD CASE 

! G12¢k) ,G23(K) ,Gi3(K) ; GRADIENT MATRICES(TD TO XY),2-TD CASES 
! INPUTS ARE: 

! P(*K);POWER LEVEL OF XMITTERS (KILOWATTS) 

! V;VELOCITY OF PROPOGATION (MICROSEC/KILOMETER) 
! Range (%*);RANGES FROM POINT TO XMITTERS (KILOMETERS) 
! Bear (xk) ;AZIMUTH OF XMITTERS FROM POINT (DEGREES) 
! Zp(%);XY POSITION OF POINT 
DEG 
OPTION BASE 4 

DIM R(3,3),WC3,3) ,B(2,3) ,0¢42,2) ,D¢2,3) 

MAT R=(i) 

K=P (4)/Range(4)*2 

FOR I=i TO 3 

! CALCULATE A MATRIX 

ACT, 1) =(SIN( Bear (4) )-SIN(Bear(T)))/V 

ACI ,2)2(COS (Bear (4) )-COS (Bear (1)))/V 

! CALCULATE COVARIANCE MATRIX 

R(I,I>=44KKRange(1)*2/P (1) 

NEXT I 

' CALCULATE WEIGHTING MATRIX 

MAT W=INV(R) 

! CALCULATE G1i23 

MAT B=TRNC(A) 

MAT D=BxkW 

MAT C=DxA 

MAT C=INV(C) 

MAT Gi23=CxD 

$ CALCULATE 612,623,613 


FOR I=i TO 2 
FOR J=4 TO 2 
K=I+4 

L=J+i 

M=I 

NzJ . 


IF I=2 THEN H=3 
IF J=2 THEN N=3 

G42(1,J)*A(I,J) 

G23(1,J)@A(K, 3) 

G43¢1,J)=A(M,J) 

NEXT J 

NEXT I 

MAT Gi2=INV(G12) 
MAT G23=INV(G23) 
MAT Gi3=@INV(G43) 
SUBEND 

{ 
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41670 
£1680 
116906 
4141700 
11740 
411720 
11730 
411750 
411770 
11780 
11790 
11800 
11810 
11820 
11830 


SUB TAC(R(R) ,V,EdCe) ,TORD) 

1 PROGRAM PREDICTS TDS FOR A POINT, INPUTS ARE RANGES 
| TO THE XMITTERS(R(X)) EMISSION DELAYS(Ed(#)) ,AND 

1 VELOCITY OF PROPOGATIGN 
! 


! CALCULATE SECONDARY PHASE FACTORS (SF) 

FOR I=i TO 4 

S(I)938, 4486/R(1)—. 40758+.002466735#R (1) 

IF R(I)<(460 THEN 8(T)=,816768/R(1)—. 0144024. 00448R(I) 
NEXT I 

1 CALCULATE TDS 

FOR I=1 TO 3 

TCT) =@(R(T)-RO4)) /V48( 19-804) Ed (I) 

NEXT I 

SUBEND 








12030 
12040 
12050 
12060 
12070 
12080 
42090 
12100 
12410 
12130 
12440 
12141 
12142 
12145 
12460 
12165 
124170 
12180 
12190 
12200 
12210 
12220 
) 

12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
123041 
12302 
12310 
412311 
12320 
123390 
12340 
12350 
123514 
12370 
12380 
12400 
12410 
12420 
12430 
12440 
12450 
12451 
12452 
12453 
42454 
1245S 
12456 


SUB Wofile(W(e) ,Fi,Files$) 

1 PROGRAM TO STORE WAYPOINT INFO 
OPTION BASE 4 
PRINTER IS 0 
IF Fi=i THEN Opt 
INPUT “WAYPOINT FILE NAME?”,Files 
Fizi 
INPUT “DOES THIS FILE CURRENTLY EXIST ON TAPE? Y OR N",Cré 
IF UPCS(Cr$[4,4})="N" THEN CREATE Files$,8 

Cont: ASSIGN #1 TO Files 
IF UPCS$(Cr$[4,43)="Y" THEN READ €4;W(%) 

Opt: INPUT “MODIFY/CREATE4; LIST2; SAVES; QUIT4" ,Opt 
IF (Opt<4) OR (Opt>4) THEN Opt 
ON Opt GOTO Input,List,File,End 

Input: INPUT “WAYPOINT NUMBER?" ,Nw 
IF (Nw(4) OR (Nw)25) THEN Input 
PRINT "WAYPOINT NUMBER=";Nw 
INPUT "INPUT OR CHANGE TDs? Y OR N",Td$ 
IF Td$="N" THEN Xy 
INPUT “TDW,TDX,TDY,TDZ 2", WCNwW,4),WCNW,2) ,WINW, 3) ,WCNW, 4) 
FIXED 2 
PRINT “TDW=";WCNW,4),"TDX=";WCNW,2),"“TDY=" ;WCNW, 3), "TDZ=";WCNW,4 


Xys INPUT “INPUT OR CHANGE XY POSITION? Y OR N",PS 
IF P$="N" THEN L1 
FIXED 3 
INPUT “XY POSITION? E,N",WC(NwW,S) ,WCNW,6) 
PRINT “X=";W(Nw,5),"Y="j;W(NW,6) 
Li: INPUT “INPUT OR CHANGE LAT/LON? Y OR N",L1$ 
IF L1$="N" THEN Next 
FIXED 4 
INPUT "ENTER LATITUDE; D,M,S",Deg,Min,Sec 
WCNw,7)=Deqgt+Min/60+Sec/3600 
INPUT “ENTER LONGITUDE; D,M,S",Deg,Min,Sec 
WCNw,8)=—(Deg+Min/60+Sec/3600) 
PRINT "LAT=";WCNwW,7), “LON=" ;,W(Nw,8) 
Next: INPUT "ANOTHER WAYPOINT? Y OR N",AS 
IF AS="Y" THEN 12160 
GOTO Opt . 
List: PRINT LIN(S);TAB(2S5) ; "WAYPOINT FILE: ";File$ 
FOR I=1 TO 2S 
FIXED 0 
PRINT LIN(4) 3 “WAYPOINT#=";1 
FIXED 2 
PRINT “TDW=";WCT,4), *TDX="j;WC1,2), *TDY=" ;WCI, 3), "TDZ=" WOT, 4) 
FIXED 3 
PRINT “X=";W(1,5),"Y=";W(1,6) 
FIXED 0 
LateW(1I,7) 
Deg=INT(Lat) 
Mini260k(Lat-Deg) 
Min=INT (Mini > 
Sec=60%(Mini-Min) 
PRINT "“LAT:"3;Deg;CHR9(479) sMinj3"? "3 
FIXED 2 





12458 PRINT Sec;*%?? “3 
12459 FIXED 0 

12460 Lon=-—W(I,8) 

12461 DegINT (Lon) 

12462 Mini=60x(Lon-Deg) 
12463 Min=INT(Mind) 
12464 Sec=60%(Mini-Min) 
42465 PRINT “LON: ";Deg;CHRS(4179) ;Min3;"'"%; 
12466 FIXED 2 

12467 PRINT Sec;"??" 
12470 NEXT I 

12474 PRINT LIN(S) 

12475 GOTO Opt 

412480 File: ASSIGN #41 TO Files 
12485 PRINT #45;W(%) 
12520 End: SUBEND 

12540 ! 











42550 SUB Fehg(X(&),Zp (8), Tp(e) , Tq (8), G(R) ,Zq(%) ,V,Nata) 

12560 ! THIS SUBROUTINE CALCULATES POSITION COORDINATES ,Zq(2,14), 

42570 ! USING THE FLAT EARTH HYPERBOLIC GRID (FEGH) ALGROTHIM. 

12580 ! INPUTS ARE TRANSMITTER POSITIONS ,X(2,3) ,WAYPOINT POSITION, 

12590 ! Zpt{2,1); WAYPOINT TDs, Tp(2,4); THE GRADIENT MATRIX, G(2,2); 

42600 ! THE VELOCITY OF PROPOGATION, V; AND THE MEASURED TDs, Tq(2,4)., 

\ i 412610 OPTION BASE 4 

: 12620 DIM ACNsta,1),B(Nsta,4) ,CCNsta,1) ,D(Nsta,4i) ,E(2,1),T(Nsta,i),Z2¢2,1),R 
(Nstati,i) 

12630 Initialize: ! 

12640 K=0 : 

12650 MAT Zq=Zp i 

12660 MAT B=Zp 





tectonic eeeerenee 









42670 MAT A=Zp 
42680 MAT C=Tq 

42690 MAT D=Tp 
: 42700 ! CALCULATE Zq(1)=Zp+G(Tq-Tp) 
| 42740 MAT T=C-D 










42720 MAT Zq=GeT 
42730 MAT Zq=Zp+Zq 
42740 ! CALULATE h(Zq(0))=h(Zp) 
42750 FOR I=i TO Nsta+i 
42760 R(1,1)#SQR((Zp(4,4)-X(1, 4) *24¢Zp62,4)-X(1,2))*2) 
| 42770 NEXT I 














; 12780 FOR I=i TO Nsta 
Dh 12790 DCI, 1) =(R(I,4)-RCNStatd ,1))/V 
7 i 12800 NEXT I 
if 12816 ! CALCULATE Zq(n)=2Zq(n-1)-Zq(n—-2)+G6(h(Zq (n—-2)-h(Zq(n-1) >) 
A 12820 Iterate :K=K+i 
12830 DISP K 
eT 12840 ! IF ITERATIONS EXCEED 20 THEN STOP 
ia 12850 IF K)20 THEN Error 
12860 MAT B=A ! Zq(n-2)=Zq(n-1) 
12870 MAT A=Zq! Zq(n-1)=Zq(n) 
12880 MAT C=D ! h(Zq(n-2))#h(Zq(n-4i)) 
412890 ! CALCULATE h(Zq(n-1)) 
12900 FOR I=i TO Nstati 
129160 R(T, 4)=SQR¢(Zq64,49—-KX(1,4) 9 *240Z2Q(2,4)-X(1,2)9°2) 
412920 NEXT I . 
12930 FOR I=1 TO Nsta 
12940 DCI, 4) =(RCI,1)-RCNStati ,1))9/4 
Zz 12950 NEXT I 
a 12960 MAT Zq=Zqx*(2) 




























: 42970 MAT Zq=Zq-B 

: 42980 MAT T=C-D 

12990 MAT Z=GxKT 

| 13000 MAT Zq=Zq+z 

| 43040 ! CALCULATE ABS(Zq(n)-Zqtn~-4)) 
a 13020 MAT E=A-Zq 










13030 DIF faked ,49*°24E(2,4)°2 

13040 ! IF DIFFERENCE >4 YARD THEN ITERATE 

13050 IF SQR¢(DifFf)>,.0010 THEN Iterate 

43060 DISP K 

13070 GOTO End 

13080 Error:DISP "20 ITERATIONS WITHOUT CLOSURE !!11!" 
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43090 PAUSE 
434100 End: SUBEND 


43120 ! 




















































13140 
131450 
43160 
43170 
13180 
43190 
13200 
13240 
13220 
13230 
43240 
13250 
413260 
413270 
13280 
13290 
413300 
43310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 









13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 
13540 
13520 
13530 
13540 
43550 
13560 
13570 
13580 
13590 
13600 
13640 
13620 
13630 
13640 
13650 





SUB Xplor (T,Ax(&) ,Ay(S) Minx , Maxx, Miny,Maxy,N,No,FS%,Ch$,L6,P1) 
DIM 118{801] ,L4$180) 
FIXED 3 
Zooms="* 
IF No=2 THEN 13260 
PLOTTER IS 13, “GRAPHICS* 
GRAPHICS 
LOCATE 0,100,20,100 
FRAME 
IF Zoom$¢(>"Y" THEN SHOW Minx-.4,Maxx+.4,Miny-—.4,Maxyt.4 
IF Zoom$="Y" THEN SHOW Minx ,Maxx,Miny,Maxy 
AXES .4,.4,Minx,Miny,410,40 
GRID 2,2,Minx,Miny,1,4 
LINE TYPE T 
MOVE Ax(4),Ay(4) 
FOR I=4 TON 
DRAW Ax(I) ,Ay(I) 


NEXT I 

PRINTER IS 0 

P=90 

IF (P1l=3) AND (No=4i) THEN SUBEXIT 


IF (P1l=3) AND (No=2) THEN Label 

PAUSE 

INPUT “Z00M?,Y OR N",Zooms 

IF Zoom$<>“Y" THEN 13410 

DIGITIZE Minx,Miny 

DIGITIZE Maxx ,Maxy 

GOTO 13480 

INPUT “FIND SAMPLE NUMBER AND VALUE OF PLOTTED DATA POINT? Y OR N",Ou 





a a rere Bennetts RES | ho £6 tet 


IF Qut$<>"Y" THEN 43520 
DIGITIZE X,Y 

Tol=.4 

IF ARS (Maxx-Minx)¢=4 THEN Tol=,040 

FOR I=4 TON 

IF (ABSCAxCT)~X)<Tol) AND CABSCAy(I>-Y)(Tol) THEN P24 

IF P THEN PRINT I,Ax (I) ,Ayp(T) 

P=0 

NEXT I . 

GOTO 13440 

INPUT “DIGITIZE?” ,D$ 

IF D$<>"Y" THEN Label 

INPUT “HOW MANY?<=410",P 

IF P>40 THEN P#10 

GRAPHICS 

FOR I=i TO P 

DIGITIZE Xx(1),Yy(I) 

LORG S$ 

MOVE Xx(I),Yy(I) 

LAREL USING °K"; "+" 

MOVE Xx¢I),Yy(1) 4 
LORG 2 i 
LABEL USING "3D";f 
NEXT I 

FOR I=i TO P 








13670 
413660 
413690 
13700 
43740 
13720 
413730 
43740 
1374S 
413790 
13810 
413820 
413830 
413840 
13850 
13860 
13870 
13880 
13890 
13900 
43910 
43920 
13930 
43940 
13960 


PRINT I,Xu€I),Yy(2) 

NEXT I 

Lobel: IF (Pl=3) AND (No=4) THEN SUBEXIT 
LOCATE 0,100,0,20 © 

SCALE 0,100,0,25 

LiS="AXES: X=E"AVALSCMiNKX)S" Y="&VALS(Miny) 
L2S="UNITS: 4 KM/DIV" 

L3$="FILE="4Fs 

L4$="LORAN-C DATA: "&" CHAIN="8Ch$&", LOPs="&L$ 
IF Pl=i THEN L4$="MINI-RANGER DATA” 

IF P1=3 THEN L4$="MINI-RANGER (SOLID LINE) AND LORAN-C (DASHED LINE)® 
MOVE 10,20 

LABEL Lis 

MOVE 10,45 

LABEL L2$ 

MOVE 10,40 

LABEL L3$ 

MOVE 10,5 

LABEL L4$ 

PAUSE 

Hrd_cop: INPUT "HARD COPY OF GRAPHICS?" ,Hs 
IF H$="Y" THEN DUMP GRAPHICS 

EXIT GRAPHICS 

SUBEND 

! 





413970 
13980 
13996 
14000 
44010 
14020 
14030 
44040 
44050 
14060 
14070 
414080 
14090 
14100 
14410 
44120 
14130 
14440 
14150 
44160 
14170 
14180 
14190 
14200 
14210 
14230 


SUB Ct_at(X(&) , VCR) Cte) ,ATCHR) ,Wxi, Wyld ,Wx2,Wy2,N,R,A) 
DEFAULT GN 

OPTION BASE i 

DEG 

MAT Ct=(0) 

MAT At#=(0) 

! CALCULATE COURSE ANGLE FROM Wi TO W2 
Dy=Wy2-Wyt 

Dx=Wx2-Wxi 

R=SQR (Dx *2+Dy*2) 

AZATN(Dx/Dy) 

IF Dy<0 THEN A=A+180 

IF ACO THEN A=A+360 

! CALCULATE ALONG TRACK AND CROSS TRACK DISTANCE 
FOR I=4 TON 

X=XCIT)-Wxi 

YeY(T)-Wyi 

At CID =XKSIN(CA)+YKCOS (A) 

Cr¢ I) =-XxCOS (A) +YKSINCA) 


NEXT I 

! FILTER Ct 
FOR I=2 TO N 
CreCLo=CrCI-49Ke.74+Ct (1% .3 
NEXT I 


SUBEND 
' 





: 
| 
| 
| 
| 


See Parct(At(e) ,Cr(k) N,Mina,Maxa ,Minc ,Maxc ,Wt,Wf,FS,R No, Data) 
DE 

DIM L1$£40) ,L2$(401 ,L3$(40],1.48(80) 

IF No=2 THEN 14370° , 

PLOTTER IS 13, “GRAPHICS* 
GRAPHICS 

LOCATE 40,100,20,100 

Mina=MIN(O,Mina) 

Maxa=MAX(R ,Maxa) 

Bc=MAX(Maxc, .22) 

Le=MIN(Mine ,-.22) 

SCALE Mina,Maxa,Lc,Bc 

AXES .4,.04,0,0,40,19 

MOVE At(4),Ct(4) 

LINE TYPE 4 

IF (Data=3) AND (No=2) THEN LINE TYPE 2 
FOR I=1 TON 

DRAW ATCT), CrCl) 

NEXT I 

MOVE R,0 

LORG S 

LABEL USING "K";"I" 

LINE TYPE 4 

IF (Data=3) AND (No=4) THEN SUBEXIT 
Label:! 

Y_axis:! 

Y=-R/30 

LORG 8 

! IF Maxa)>S THEN Y=.5 

MOVE Y,.4 

LABEL USING "K";400 

MOVE Y,.2 

LABEL USING "K";200 

MOVE Y -.4 

LABEL USING "K";-100 

MOVE Y,-.2 

LABEL USING "K";-200 

MOVE Y,-.2415 

LORG 5 . 
LDIR 270 : 
MOVE Y,0 

LABEL USING "K"; “METERS” 

LDIR 0 

X_axis:! \ 
INTEGER K ! 
K=Maxa 

FOR I=i TO K 

MOVE 1,-.045 

LABEL. USING “"K"31 

NEXT I 

MOVE K-1,-.035 

LABEL USING °K"; "KILOMETERS" 

LOCATE 10,100,0,20 

SCALE 0,100,0,25 





TE 


: 14740 LiS="ALONG TRACK VS CROSS TRACK * 
44750 L2$="WAYPOINT “&VALS(WF)&" TO “&"WAYPOINT "“A&VALS(Wt) 
44760 L3¢="FILE="aFs . 
44770 L4$="MINIRANGER DATA” 
44780 IF Data=2 THEN L4$="LORAN-C DATA" 
44790 IF Data=3 THEN L4$="LORAN-C DATACDOTTED LINE) AND MINIRANGER DATA(SOL 
ID LINE)" 
44800 MOVE 0,22 
44810 LABEL “WP“&VAL$(Wr) 
: 44820 MOVE 100,22 
44830 LABEL "WP"avALscuf> 
44840 MOVE 55,20 
: 44850 LABEL Lis 
14860 MOVE 5S,4S 
| 44870 LABEL L2$ 
14880 MOVE SS,10 
14890 LABEL L3$ 
44900 MOVE SS,5 
14910 LABEL L4$ 
44920 PAUSE 
44930 INPUT "HARD COPY? Y OR N",Hc$ | 
, | 44940 IF Hc$="Y" THEN DUMP GRAPHICS 
|| 44950 EXIT GRAPHICS | 
i £4960 SUBEND 
ay 14980 ! 
yt j 
| 


; 
f 








414990 SUB Delete (wW( 
45000 OPTION BASE 14 


Md, XR), VCR) ,ZCM) RACK) RACK) , TECK) NFS) 


45040 DIM Wel 400) ,Xe( 400) , Ye( 400) ,Ze( 400) , Te$( 400), Riese) »R2e(400) 


45020 PRINTER IS 6 
45030 Sample: INPUT 
45040 J=0 

45050 FOR I=1 TO N 
45060 Sampl:IF I=D 
45070 J=J+i 

45080 DISP I,J 
45090 We(J)=WCT) 
45400 Xe(J)=X (I) 
45440 Ye(J)=Y<I) 
45420 Ze(J>=Z(1) 
451430 Rie (JO=RAICI)D 
15140 R2e(J>=R2¢T) 
15450 Te$(Jo=TS(T) 
45160 Next: NEXT I 
45470 N=J 

15180 MAT W=We 
45190 MAT X=Xe 
15200 MAT Y=Ye 
15210 MAT Z=Ze 
4S220 MAT Ri=Rie 
45230 MAT R2=R2e 
45240 FOR I=i TO N 
15250 T$(I)=Tes(T) 
415260 NEXT I 


“SAMPLE TO BE. DELETED?START WITH HIGHEST NUMBER °,D 


THEN Next 


45270 PRINT "“SAMPLE"3D;"DELETED,";N; “SAMPLES REMAIN” 
4S280 INPUT “ANOTHER SAMPLE TO DELETE?",AS$ 
15290 IF AS="Y" THEN Sample 


15370 End: SUBEND 
15390 ! 











SR a ae aaa 





























yee, 
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415400 
45410 
45420 
15430 
45440 
45450 
45460 
415470 
45480 
45490 
45500 
45510 
45920 
45530 
45540 
45550 
455606 
15570 
45580 
45590 
45400 
45610 
45620 
45630 
415640 
45650 
15660 
45670 
45680 
15690 
45700 
457140 
49720 
45730 


SUB Read( WC) , XK), VCR), ZB) RICK) RACK) , TimeS(&) , Sample ,FS$) 
OPTION BASE 4 
DIM AC100) ,B(100),C(400) ,DC100) ,T$¢100>) ,E¢(100), FCLO0) 
MASS STORAGE Is “iTia" 
Sample=0 ! ZERO SAMPLE NUMBER AND pata ARRAYS 
MAT W=(0) 
MAT X=(0) 
MAT Y=(0) 
MAT Z=(0) 
MAT R41=(0) 
MAT R2=(0) 
FOR I=4 TO 400 
Times(T)="" 
NEXT I 
INPUT " FILE NAME? “,FS { INPUT FILE NAME 
ASSIGN #1 TO FS 
READ #1;Set,Sample ! READ NUMBER OF DATA SETS AND SAMPLES 
FOR J=0 TO 3 ! READ DATA SET BY SET AND LOAD INTO 
ON END #4 GOTO £5600 ! DATA ARRAYS 
READ #4;ACK) ,G0K),COkK) DOK) ,ECK) ,FCK) ,TSOK) 
FOR I=1 TO 4100 
WCI+IKIDO FACT) 
XCI4+IKLi00)=R¢T) 
¥(I+IK100)=CC(I) 
ZCI+IKiGO)=DC1) 
RiCl+IxK100)=EC1) 
R2CT+IK100=F C(I) 
Times(I1+3K100)=TS$( 1) 
IF 1+3%*100=Sample THEN SUBEXIT 
NEXT I 
IF J+isSet THEN SUBEXIT 
NEXT J 


SUREND 
! 





ee 
" f 


Remaster i ee ee 


45750 
415760 
15770 
15780 
15790 
415800 
415810 
45811 
1$B820 
15830 
415840 
15850 
159860 
4158706 
15880 
15890 
15900 
15949 
15920 
15930 
415940 
15950 
15960 
15970 
15990 
46000 
16010 
16020 
16030 
16040 
16050 
16060 
160706 
16080 
16090 
16100 
164110 
16120 
16139 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16240 
16220 
16230 
16240 
16250 
16260 
16270 

6280 
16290 





SUB Link(WCm) XC), YORK), ZR) RACK) RACK), TimeS(K) , Count ,L$) 
OPTION BASE 4 
DIM AC100) ,BC100) ,C(100) ,D¢100) , T6400) ,E¢100), F100) 
MASS STORAGE Is “rTLa" 
Count=0 
INPUT “FIRST FILE NAME? “,FS 
L$="" 
Comna$=** 
Assign: ASSIGN #1 TO FS 
READ #1;Set,N 
FOR J=0 TN 3 
GN END #1 GOTO 15870 
READ #4;ACK) , BCK) COCK) ,DCK) ,ECk) ,F CK) , TECK) 
FOR I-i TO 160 
Kount=Count+I +7*i00 
DISP Kount 
WCKountd=ACT) 
X(Kount) =BRCT) 
Y¥CKount)=CC(T) 
Z(Kount)=DCT) 
Ri CKount)=E(I) 
R2(Kount)=F C(I) 
Time$(Kount)d=T$¢(I) 
IF I+Jk100=N THEN Jump 
IF Kount=400 THEN Jump 


NEXT I 

IF Set=J+i4 THEN Jump 
NEXT J 

Jump: ! 

PRINTER IS 16 


PRINT PAGE;LIN(20); “CURRENT FILE=";F$ 

INPUT “CORRECT RANGE DATA? Y OR N",C$ 

PRINTER IS 0 

IF C$<>"Y" THEN 416180 

FS=F$&"r 

INPUT "CORRECTION TO Ri(METERS)?",Ric 

INPUT "CORRECTION TO R2¢(METERS)?",R2c 

PRINT .“FILE=";F% 

PRINT “R4 CORRECTION=";Ric; TAB(30);"R2 CORRECTION=";R2c 
FOR T=Count+i TO Kount 

RACT ERICI)+Ric 

R2¢CT =R2¢1)+R2c 

NEXT I 

INPUT “CORRECT TD DATA? Y OR N",CS 

IF CO¢>"Y" THEN 16340 

PRINT “START TIME="; Times (Count+1) ; TAB(30); "STOP TIME="; Times (Kount> 
INPUT “CORRECTION TO TDW(MICROSEC)?2"*,We | 
INPUT "CORRECTION TO TDX(MICROSEC) 72% ,Xc 
INPUT “CORRECTION TO TDY(MICROSEC)?",Yc 
INPUT "CORRECTION TO TDZ(MICROSEC)?”,Zc 
FOR T=Count+i TO Kount 

WCT =WC TI) +c 

XCI)eX(1I)4+Xe 

YCIzV¥(1)4¥e 

Z(3)8Z(1)4Ze 


4 


416300 NEXT I 
16310 FS=FSa"t" 
16320 PRINT “FILE=";FS 
46330 PRINT "TD CORRECTIONS: "; TAB(20) ; “Weor="; Wc 3 TABC3S) 3 "Xcor=";3Xc 3 TAB(SO) 
3“Yoor="3;Yc; TAB( 6S); "Zcor=" 3Zc 
16340 Count=Kount 
14350 PRINTER IS 16 
146390 L$=L¢SCommaSaF$ 
16400 PRINT PAGE;LIN(20) 
16410 PRINT “FILES LINKED="3;L$ 
46420 PRINT “TOTAL SAMPLES=";Count 
16430 IF Count=400 THEN 186490 
16440 INPUT “ANOTHER FILE? “,AS 
16450 IF A$="N" THEN End 
16451 Comma$=CHR$( 44) 
16460 INPUT “FILE NAME? ",FS$ 
16480 GOTO Assign 
| 16490 End:PRINTER IS 0 | 


a ere cee an ae 


1649S PRINT "FILES LINKED=";L$ 
46500 PRINT “TOTAL SAMPLES=";Count 
16540 PRINT 
: 146520 INPUT "STORE DATA SET? ",S$ 
: 446530 IF S$="Y" THEN Store 
46540 SUBEXIT 


ai 46550 Store:CALL Store (WCe) ,XCH) YOK), Z(H) RACK) RACK), TimesCx) ,Count, FS) 
Wy 44560 SUBEND 


Ny 


a 





46570 SUB Stat_mat(WOm), XO), YOR), 20%), SK) CoC) ,OCK) ND 
16580 OPTION BASE 4 
46590 DEFAULT ON 
46600 DIM A400) ,B( 400) ,C(400),D¢400) ,VC4) 

46640 ! OFF-SET 
16620 0¢4)=W(4) 
16630 0(2)=X(4) 
16640 O¢3)#Y(4) 
16650 0(4)=Z(4) 
46660 ! SUBTRACT OFF-SET 
16670 FOR I=4 TON 
46680 ACT)=W(I)-0(4) 4 
16690 B(T)=X(1)-0(2) 
16700 C(I)#Y(1)-0¢3) 
46740 DCL)=Z(1)-0(4) 
46720 NEXT I 
16730 ! SUMS 
46740 S(4,4)=SUMCAD 
16750 §(4,2)=SUM(B) 
16760 S(4,3)=SUM(C) 
16770 S(4,4)=SUM(D) 
16780 ! SUMS OF SQUARES 

t| 16790 S(2,1)=DOT(A,A) 

| 46800 S(2,2)=DOT(B,B) 

nh 46810 $(2,3)=DOT(C,C) 
wee 16820 $(2,4)=DOT(D,D) 


46830 ! MEAN AND STAN DEV 
Ny 46840 FOR I=4 TO 4 

oe 46850 $(3,1)=S(4,1)/N 

[ 46860 V(1)=S(2,1)/N-S(3, 1942 


46870 S(4,1)=SQR(V(I)) 
46880 NEXT I 
46890 ! SUM OF CROSS PRODUCTS 
16900 Co(i,4)=DOT(A,B) 
: 46940 Co(i,2)=DOT(A,C) 
46920 Co(4,3)=DOT(A,D) 
! 46930 Co(i,4)=DOT(B,C) 
! 46940 Co(4,5)=DOT(B,D) 
— 46950 Co(4,6)=DOTCC,D) 
_ 16960 | COVARIANCE 
Y 46970 Co(2,4)=Co(1,1)/N-S(3,1)85(3,2) 
‘ 46980 Co(2,2)=Co(i,2)/N-S(3,4)88(3,3) 
46990 Co(2,3)=Co(4,3)/N-S(3,4)8S5(3,4) 
£7000 Co(2,4)=Co(i,4)/N-8(3,2)85(3,3) 
! 17010 Co(2,S)=Co(4,5)/N-S(3,2)8S(3,4) 
47020 Co(2,6)=Co(4 ,6)/N-S(3,3)88(3,4) 
ay 47030 ! CORRELATION COEFFICIENT 
ho 47040 Co(3,4)=Co(2,4)/(S(4,4)88(4,2)) 
| 47050 Co(3,2)=Co(2,2)/(8(4,41)8S(4,3)) 
£7060 Co(3,3)=Co(2,3)/(S(4,41)88(4,4)) 
47070 Co(3,4)=C0(2,4)/(S(4,2)8S¢4,3)) 
47080 Co(3,5)=Co(2,5)/(8(4,2)8S(4,4)) 
17090 Co(3,6)=Co(?,6)/(8(4,3)"S(4,4)) 
47400 SUBEND 
| 47420 | 





B-109 





474130 SUB StoreCWCR) ,XCR), YOR), ZOK) RACH) RACH) ,USCH) NFS) 
47440 OPTION BASE 4 
47450 DIM AC100) ,BC100),C(100) , D100), T$(100) ,£¢400) ,F (100) 
47460 IF N(=i00 THEN Set#4 
47470 IF (N)100) AND (N<=200) THEN Set#=2 
47480 IF (N)200) AND (N(=300) THEN Set=3 
47190 IF (N>300) AND (N(=400) THEN Set=4 
47200 INPUT " FILE NAME? “,FS 
47240 PRINT “FILE=";F$,"SETS=";Set, "N="3N 
17220 CREATE F$,Set,7000 
17230 ASSIGN #1 TO FS 
17240 PRINT #1;Set 
47250 PRINT #43N 
17260 J=0 
47270 Load:! 
| 47280 FOR I=4 TO 100 
47290 IF I+J34100)N THEN Zero 
| 47300 ACI)=WC14+7%100) 
47340 BCI)=X(1+3%100) 
47320 CCI)=¥(1+7%100) 
47330 D(I)=Z(1+3%100) 
47340 EC L)=Ri(1+3k100) 
| 47350 FCT)=R2¢14+74100) 
47360 T$(1)=U$(14+3%100) 


|. 47370 GOTO Next 
7 17380 Zero:! 
Ad 17390 ACT)=0 


t 
} 
a 47400 B(I)=0 
474410 C(1)=6 : 
a 17420 D(1)=0 | 
I ; 47430 E(1)=0 

: 47440 F(I)=0 

47450 TS(T)="* 
BR 17460 Next:NEXT I 
| 17470 | ON END #4 GOTO 16770 
| 17480 | PAUSE 
a 47490 PRINT #45;A0K) BOR), COM) DOK) EO) FOR) TSOKD | 
po 17500 IF J+i=Set THEN SUBEXIT 
i 17540 J=J+4 . 
bed 17520 GOTO Load 

: £7530 SUBEND 

47550 ! 
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417570 
17580 
17590 
17600 
17610 
17620 
17630 
17640 
417650 
17660 
17670 
17680 
17690 
17700 
417710 
17720 
17730 
17740 
17750 
17760 
17770 
17780 
417790 
17800 
176810 
17820 
17830 
17840 
17850 
17860 
17870 





OPTION BASE 4 


DIM We( 400) ,Xe(400) ,Ye( 400) , Ze (400) , Te$ (400) ,Rie( 400) ,R2e(400) 


PRINTER IS 0 


Sample: INPUT “FIRST SAMPLE IN BLOCK TO BE DELETED" ,N&4 
INPUT “LAST SAMPLE IN BLOCK TO BE DELETED",N2 


J=0 
FOR I=i TON 


Sampl:IF (I>=Ni) AND (I¢(=N2) THEN Next 


J=I+4 

Disp I,J 
We(Joz=WCI) 
XeCJ=X CI) 
Ye(J VCCI) 
Ze(J)=Z¢T) 
Rie(J=R4i CT) 
R2e(J)=R2¢T) 
Te$(J)=TS$(I) 
Next: NEXT I 
N=J 

MAT W=We 

MAT X=Xe 

MAT Y=Ye 

MAT Z=Ze 

MAT Ri=Rie 
MAT R2=R2e 
FOR I=4 TON 
T$(I)=Tes(T) 
NEXT I 


PRINT “SAMPLES” ;N1; "THRU" 3;N2; "DELETED,“;N; "SAMPLES REMAIN" 
INPUT “ANOTHER BLOCK TO DELETE?",A$ 
IF AS="Y" THEN Sample 


End: SUBEND 
) 





SUR Delete_blok(WCB),X(K) ,¥CR),Z¢0H) RICK) RACK) , TECH) NFS) 








18000 
18004 
48040 
18020 
48030 
‘ Sec 
| 48034 
49032 
48037 
48040 
48044 
; 48060 
18070 
48080 
48084 
18082 
48090 
48094 
148100 
18104 
| 48102 
48410 
48120 
18130 
Gl 48140 
18150 
18160 
48470 
18180 
48190 
48200 
| 48240 
48220 
| 48230 
! 46240 
48250 
| 418260 
18270 
| 48280 
148290 
48300 
48340 
183414 
48342 
48390 


ee See 


SUB Delete_td(W(m) , XC), VCR), ZB) RACK) RACK), TS(K) NFS) 
OPTION BASE 4 

DIM We( 400) ,Xe(400) 
Sec$="WXxYZ" , 
PRINTER IS 0 
Sample: Ni=N 

INPUT “SET CLIP LIMITS FOR WHICH SECONDARY? Wi, X2, Y3, Z4 “, 






,¥e( 400) ,Ze( 400), Te$(400) ,Rie( 400) ,R2e(400) 








IF (Sec¢4) OR (Secd4) THEN Sample 

PRINT RPTS$(“-",80) 

PRINT “SETTING CLIP LIMITS FOR “;Sec${Sec3i4] 
INPUT “CLIP LIMITS 7; MIN,MAX",L1,U1 

PRINT “UPPER=";U1;" LOWER="3L1 

J=O 

FOR I=i TON 

Samp1:0N Sec GOTO Tw,Tx,Ty,Tz 

TwiIF (WCIDCL1) OR CWCID UL) THEN Next 

GOTO Keep 

Tx: IF (XCID¢CLI) OR 
GOTO Keep 

Ty: IF CY¥YCIDCLI) OR 
GOTO Keep 

Tz:IF (Z¢1)¢L1) OR 
Keep: J=J+4 

DISP I,J 

We (Jo =wc(T)> 
XeCJ=x¢1) 

Ye (J) zY(1) 
Ze(J)=Z¢1) 
Rie(J>=RiICI) 
R2e(J»=R2(1) 
Te$(J)=T$(I) 
Next: NEXT I | 
N=J 
MAT 
MAT 
MAT 
MAT 
MAT 











(XCID UL) THEN Next 






(¥(I) U1) THEN Next 







(Z¢(T) U1) THEN Next 















W=We i 
X=Xe : 

Y=VYe 

Z=Ze 

RisRie - 

MAT R2=R2e 

FOR I=i TON 

T$(T=Tes(1) 

NEXT I 

PRINT Ni-N; "SAMPLES DELETED,";N; "SAMPLES REMAIN® 

INPUT “SET ADDITIONAL CLIP LIMITS?",Q$ 

IF UPC$(Q$(4,41])2"°Y" THEN Sample 

End: SUBEND 


















18400 
418410 
18420 
18430 
18440 
18450 
18451 





SUB Track(Stat(&) ,O set(e) ,Cov (xk) ,R(*) , Sample, FS, Wt, WF,Angle,N) 
DEG 

OPTION BASE 1 

DEFAULT GN 

FIXED 2 

PRINT “LORAN-C POSITION ANALYSIS: ";F% 
Angle=Angle-180 


164S2 IF Angle<@ THEN Angle=Angle+360 

18460 PRINT TABC(S); "FROM WP“;WF;" TO WP";Wt;",TRACK= "“;Angle;" DEGREES" 
18470 PRINT “REFERENCE WAYPOINT=" ;Wt 

18480 Slope=R(i,4) 

18490 IF R¢3,4)=2 THEN Slope=i/Slope 

418500 A=ATN(4/Slaope) 

18510 IF Slope<0 THEN A=A+180 

18520 IF ACO THEN A=A+360 

418530 PRINT TAR(S); "RMS TRACKLINE=";A;" DEGREES" 

18540 PRINT TAB(S); "AVE CROSS TRACK DISTANCE=";(0_set(3)+Stat(3,3))K1000; 
“ METERS" 

18550 PRINT TAR(S);"STD DEV CROSS TRACK DISTANCE=";Stat(4,3)%1000;" METER 
s* 

18560 FIXED 3 

18570 PRINT TAB(S) ;"AVE X POS=";0_set(1)+Stat(3,4)3 "KM"; TABC40);"Y POS=";0_ 


set(2)+Stat¢3,2); "KM" 
18580 PRINT TAB(S); "STANDARD DEV X=";Stat(4,1)*1000;" METERS"; TAR(C 40); "Y="; 


Stat(4,2)%1000; "METERS" 


18590 


SUBEND 





18600 
18610 
18620 
18630 
18640 
418450 
18660 
18670 
18680 
18690 
18700 
18710 
18720 
18730 
418740 
18750 
18760 
18770 
18780 
18790 
18800 
18810 
18820 


SUB Triangle(Sa,Sb,Sc,A,B,C) 
INTEGER E 

DEG 

S=(Sa+Sb+Sce)/2 

ON ERROR GOTO 18460 

GOTO 184680 

PRINT "ERROR 25"3A;S3;Sa;Sb;Sc 
SUBEXIT 

A=ACS (24SK(S-Sa)/(SbkKSc )-1) 
D=Sa/SIN(A) 

B=ASN(Sb/D) 

C=ASN(Se/D) 

OFF ERROR 

E=A+B+C 

IF (AC90) AND (E4480) THEN Alt 
SUBEXIT 

Alt: IF Sb<Sc THEN Alt2 
B=180-5 

E=A+B+C 

SUBEXIT 
Alt2; C=180-C 

E=A+K+C 
SUBEND 





Er eet cnaeneeeeansnlcaaheneiedneeaaai 


SUB Position(Ze(%), Alpha, Sc ,Sign,B,X,Y) 
DEG 

OPTION BASE 1 

ThetaztAlphatSignkB 

X%2Z0(4)+8cR8SIN( Theta) 
Y=Zo0(2)+8c %COS( Theta) 

SUBEND 





18900 
18910 
18920 
18930 
18940 
18950 
18960 
ETERS” 
18970 
18980 
18990 
ETERS" 
19000 
19010 
19020 
19930 
RS" 
19040 
19050 
19060 
RS" 
19070 
19080 
19090 
19100 
19410 
19120 


SUB Dif (Stat(x) ,O_set(K) ,N,FS,Re Reed 

DEG 

OPTION BASE 1 

DEFAULT ON ‘ 

PRINT “ANALYSIS OF LORAN-C VS MINI-RANGER DATA; FILE=";FS$ 


PRINT TAB(S); “AVE ERROR IN X-DIRECTION=";(O0_set(3)+Stat¢(3,3))k1000; "™ 


Ras=(Stat(2,3)/N+t2k0_ set (3)*(0_set(3)+Stat(3,3))+0_set(3)*2)*,.5K1000 
PRINT TAB(S); "RMS ERROR IN X-DIRECTION=";Rms; “METERS" 
PRINT TAK(S); "AVE ERROR IN Y-DIRECTION=";(O_set(4)4+Stat(3,4))ei000;°M 


Rus=(Stat(2,4)/N+2ne0_set(4)k(0_set(4)4+Stot(3,4))4+0_set(4)*2)*.Sk1000 
PRINT TAB(S); "RMS ERROR IN Y-DIRECTION=";Ras; "METERS" 

PRINT 

PRINT TAB(S); "AVE CROSS TRACK ERROR="3(0_set(2)+Stat(3,2))*1000; "METE 


Rmas=(Stat(2,2)/N+2k0_set(2)k(0 _set(2)+Stat(3,2))40 set(2)*%2)*.5k1000 
PRINT TAR(S); "RMS CROSS TRACK ERROR=";Rms; "METERS" 
PRINT TAB(S); "AVE ALONG TRACK ERROR=";(0_set(4)+Stat(3,4))*1000; "METE 


Rus=(Stat(2,1)/N+2k0_set(i)kCO_set(4)4+Stat(3,1))4+0_set(i)>*2)*,.5e1000 
PRINT TAB(S);"RMS ALONG TRACK ERROR=";Rms; "METERS" 

PRINT 

PRINT TAB(S); "RMS RADIAL ERROR(XY)="5Re; "METERS" 

PRINT TAB(S); "RMS RADIAL ERROR(CT/AT)=";Ree; "METERS" 

SUBEND 





ces ee 


19130 
19140 
419150 
£91460 
19170 
19180 
19490 
19200 
19240 
19220 
19230 
19240 
19250 
19260 
19270 
19280 
19290 
19291 
19292 
19293 
19294 
19295 
19296 
19297 
19300 
19340 
19320 
19330 
19340 
19350 
19360 
19370 
193714 
19380 
19390 
19400 
19410 
19420 
19430 
194314 
19432 
19433 
19434 
19435 
19436 
19427 
19440 
19450 
19460 
19470 
19480 
19490 


SUB Plot_err(Ex(m) ,Ey(®) ,N,At(H) RP) 
PLOTTE? IS 13, “GRAPHICS” 
GRAPHICS 
LOCATE 0,165,55,4100 
CALL Hi_1lo(At(&) ,N,Xmax ,Xmin) 
Xmin=MINCO,Xein> 
Xmax=MAX ¢(Xmax ,R) 
SCALE Xmin,Xmax,-.40,.10 
AXES .40,.04,0,0,10,10 
FOR T=4 TO N 
tORG S 
MOVE At(I),Ex(I) 
LABEL USING "#,K";"X* 
! MOVE I,EyC(T) 
NEXT I 
MOVE R,0 
LABEL USING “#,K";"I" 4 
MOVE .S,.40 
LORG 3 
LABEL USING "%,K";"400 M" 
LORG i 
MOVE .S,-.40 
LABEL USING "@,K"3;"-100 M" 
LORG 5S 
MOVE R/2,-.05 
IF P=2 THEN 19340 
LABEL USING "#,K";"X-ERROR VS ALONG TRACK DISTANCE (KM)" 
GOTO 19350 
LABEL USING "#,K";"At-ERROR VS ALONG TRACK DISTANCE (KM)" 
LOCATE 0,100,0,45 
SCALE Xmin,Xmax,-.40,.10 
AXES .10,.01,0,0,10,40 
LORG S 
FOR I=i TON 
MOVE AtCI) , Ey (I) 


LABEL USING "#,K";"Y" 
NEXT I 
MOVE R,0 
LABEL USING>"#,K"; "I" | 
MOVE .S,.10 i] 
LORG 3 || 
LABEL USING "#,K"3;"400 ns” 
LORG 4 |; 
MOVE .S,-.106 ; 


LABEL USING "@,K";"-4100 ns" 
LORG S 

MOVE R/2,-.05 

IF P=2 THEN 19480 

LABEL USING “#,K";“Y-ERROR VS ALONG TRACK DISTANCE (KM) " 
SUBEXIT 

LABEL USING “#,K";“Ct-ERROR VS ALONG TRACK DISTANCE (KM)" 
SUBEND 





| 
t 
i 


19500 
419510 
19520 
19530 
19540 
19550 
19560 
19570 
19580 
19590 
19600 
19610 
19620 
19630 
19640 
19650 
19660 
19670 
19680 
19690 
19700 
19710 
19720 
419730 
19740 
19750 
19760 
19770 
19780 
19790 


SUB X_errplot(T,Ax(%) ,Ay(®) ,Bx(k) , By (kK) Minx ,Maxx ,Miny,Maxy,N) 
DIM L$[80) 
PLOTTER IS 13, “GRAPHICS” 
GRAPHICS : 
LOCATE 0,400,10,100 
FRAME 
SHOW Minx-.41,Maxx+.4,Miny-.4,Maxy+.4 
AXES .4,.41,Minx,Miny,10,10 
GRID 2,2,Minx,Miny,4,4 
LINE TYPE T 
MOVE Ax(4),Ay(4) 
LORG 5S 
CSIZE i 
FOR I=4 TO N 
MOVE Ax(I),AyC(I) 
DRAW Bx(I),By(I) 
LABEL USING "#,K";"0" 
NEXT I 
Label: ! 
LOCATE 0,100,0,10 
SCALE 0,100,0,10 
CSIZE 3.0 
L$="ERROR PLOT: MINI-RANGER FIX(.) LORAN-C FIX(0)" 
MOVE S0,5 
LABEL L$ 
PAUSE 
INPUT “HARD COPY? Y OR N",HS 
IF H$="Y" THEN DUMP GRAPHICS 
EXIT GRAPHICS 
SUBEND 





419800 


19840 
19820 
19830 
49840 
49850 
49860 
49870 
49880 
49890 
19900 
19940 
19920 
19930 
49940 
19950 
19960 
419970 
19980 
19990 
20000 
20040 
6) 

20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20400 
20440 
20420 
20130 
20440 
20450 
20460 
20470 
20480 
20190 
20200 
20240 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20340 
20320 


SUB Warp(X¢%) ,YCR) ,Z¢K) ,Zx CR), Zy CR) ,Z0CK), TOCK) ,Zumit(R) ,V,N,ATCE),R, 
Conf , FS) 
! FUNCTION CALCULATES DIFFERENCE BETWEEN MEASURED TDs AND TDs 
! PROJECTED FROM A NEARBY WAYPOINT USING HYPERBOLIC GEOMETRY 
! INPUTS: 
XCK),Y¥CK),ZCK)— MEASURED TD ARRAYS( NOT NECESSARLY TDX,TDY,TDZ) 


t 
1 Zx(8),Zy(K)- POSITION DATA CALCULATED FRON MINI-RANGER DATA 
1 Zo(k)- WAYPOINT POSITION 

1 To(k)- WAYPOINT TDs 

1! ZxmitCk)- TRANSMITTER XY POSITIONS 

1 = ATOK)= ALONG TRACK DISTANCE ARRAY 

1 Wt,WF- WAYPOINT TO AND WAYPOINT FROM 

{ F~DATA FILE NAME 

1 R- RANGE BETWEEN WAYPOINTS 

1 Y= VELOCITY OF PROPOGATION 

! N- NUMBER OF SAMPLES 

!  Conf- CHAIN CONFIGURATION; 4=XYZ, 2=WXY, 3=WXZ, 4=WYZ 

! CALCULATED: 

1 =XeOk), Ye) ,Ze(K)-TD ERROR ARRAYS 

1 = Stat(k),O_set(k),Cov(k)- STATISTICS OF TD ERRORS 

OPTION BASE 4 

DEFAULT ON 

DIM R(4),T1¢3), T2¢3) ,Xe (400), Ye(400),Ze(400) ,Stat(4,4),0_set(4),Cov(3 


DIM L$(80) 

MAT Xe=(0) 

MAT Ye=(0) 

MAT Ze=(Q) 

1 CALCULATE h(Zo)=(Range_secondary-Range_master)/Velocity_propogation 

FOR I=i1 TO 4 

RCI)=SQRC(Z0 04) —Zxmit¢l,4))*%2+¢Z002)-Zxmittl,2))*2) 

NEXT I 

FOR I=1 TO 3 

TACT ECR CTI O-R 64) 7V 

NEXT I 

! CALCULATE h(Zi)d; Error=(TDi-TDo)-Ch(Zid-h(Zo)) 

FOR I=i TON 

! CALCULATE h(Zi) 

FOR J=1i1 TO 4 

R¢J=SQRC(CZxCT-Zxmitld,4))*%24¢Zy CT )-Zumit¢s,2))%2) 

NEXT J 

FOR J=1 TO 3 

T2CTIBCRITI-RC4))/V 

NEXT J 

! CALCULATE Error=(TDi-TDo)-(h(Zid-h(Zo)) 
Xe (I)=X¢C1)-To(1)-(T2¢4)-T1 C49) 
YeC(I)#V¥(I)-To(2)-(T2(2)-T1(2)) 
Ze(I)=Z¢(1)-T0¢(3)-¢T2(3)-T1¢3)) 

NEXT I 

Smooth: ! 

FOR I=2 TO N-4 

KaClo=,7kXe (1-194, 3aXe (I) 

YeCI)=, 7#Ye(I~-1)+,.3"Ye (1) 

Ze(I)=.7xkZe(I-1)+,3kZe(1) 





20330 ! CALCULATE TD ERROR STATISTICS 
20340 CALL Stat_mat(At(m) ,XeCk), YeCe),Ze(®) ,Stat(#),Cov(e) ,O_set(e),N) 
20350 |! PRINT RESULTS 

20360 IF Conf=i THEN L$="TDX-~ERROR TDY-ERROR TDZ-ERROR" 

20370 IF Conf*2 THEN L$="TDW-ERROR TDX-ERROR TDY-ERROR" 

20380 IF Conf=3 THEN L$="TDW~ERROR TDX-ERROR TDZ-ERROR" 

20390 IF Conf=4 THEN L$="TDW-ERROR TDY-ERROR TDZ-ERROR “ 

20400 FIXED 0 

20440 PRINT “FILE=";F8;* REFERENCED TO WAYPOINT" ;Wt;°:" 

20420 PRINT TAB(40)3L$ 

20430 FIXED 3 

20440 PRINT “AVE";TAB(10) ;Stat(3,2)+0_set(2) ;TAB(25) ;Stat(3,3)4+0_set(3) ; TAB 
(40) ;Stat(3,4)40_set(4) 

20450 PRINT "STD DEV"; TAB(40) ;Stat(4,2) 3 TABC25) ;Stat(4,3) ;TABC40) ;Stat(4,4) 
20460 ! PLOT DATA 

20470 CALL T_errplot(Xe(k), Yee) ,Ze(#) ,ATCH),R,N, Conf, Wt, WF, FS) 

20480 SUBEND 

20490 ! 
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20680 
20690 
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20770 
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20870 
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20930 
20940 
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20980 
20996 
210600 
21010 
21020 
21030 
21040 


SUB T_errplot(A(®), BCH) ,C¢(K) ,ATCK) RN, Conf ,Wt , WF ,FS) 
DEG 

PLOT TD ERROR DATA VS ALONG TRACK DISTANCE 

CALCULATE MIN AND MAX OF ERROR ARRAYS : 

CALL Hi_10(ACK) ,N,Maxa,Mina) 

CALL Hi 10(B(&) ,N,Maxb,Minb) 

CALL Hi_lo(C(%) ,N,Maxc,Minc) 

! CALCULATE MIN AND MAX OF ALONG TRACK DATA 

CALL Hi_lo(At(k) ,N,Maxat,Minat) 

! GENERATE Y-AXIS LABELS 

IF Conf=4 THEN Li$="TDX" 

IF Conf<>4 THEN Li$="TDW" 

IF (Conf=2) OR (Conf=3) THEN L2$="TDX" 
IF (Conf=4) OR (Conf=4) THEN L2$="TDY" 
IF Conf<>2 THEN L3$="TDZ" 

! PLOT ACK) DATA ON TOP QUARTER OF SCREEN 

PLOTTER IS 143, “GRAPHICS” 

GRAPHICS 

LORG §S 

LOCATE 10,120,75,100 

Miny=MIN(-.1,Mina) 

Maxy=MAX(.1,Maxa) 

Minx=MIN(O,Minat) 

Maxx=MAX(R ,Maxat) 

SCALE Minx,Maxx,Miny,Maxy 

AXES .4,.04,0,0,10,10 

MOVE At(4),AC4) 

FOR I=1 TO N 

DRAW At(T) , ACT) 

NEXT I 

MOVE R,0 

LAREL “I° 

MOVE -(Maxat-Minat)/30,0 

LDIR 90 

LABEL Lis 

LDIR 0 

! PLOT B(&) DATA 

LOCATE 10,120,48,73 

Miny=MIN(-.%, Mind) 

Max y*MAX(.1,Maxb) 

SCALE Minx ,Maxx,Miny,Maxy 

AXES .4,.01,0,0,10,10 

MOVE At(4),BC1) 

FOR I#i TO N 

DRAW At(I), BCI) 

NEXT I 

MOVE R,O 

LABEL °I° 

MOVE -(Maxat-Minat)/30,06 

LDIR 90 

LABEL L2s 

LDIR 0 

! PLOT C(®) DATA 

LOCATE 10,120,20,45 

Miny=MIN(-.4,Mine) 
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21070 
21080 
21090 
24100 
21110 
21120 
24130 
2414140 
21150 
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24180 
21490 
24200 
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21240 
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21260 
21270 
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21290 
21300 
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21340 
24350 
21360 
24370 
21380 
21390 
21400 


Maxy=MAX(.1,Maxc) 
SCALE Minx ,Maxx,Miny,Maxy 
AXES .4,.01,0,0,10,4 
MOVE At(4),C0¢4) : 
FOR Ii TON 

DRAW ATCT), CCT) 

NEXT I 

MOVE R,0 

LABEL “I° 

MOVE -(Maxat-Minat)/390,0 
LDIR 90 

LAREL L3$ 

LDIR 0 

! LABEL 
FIXED 0 

LOCATE 0,120,0,20 
SCALE 0,120,0,20 
MOVE 10,18 

LABEL Wt 

MOVE 120,18 

LABEL Wf 

MOVE 60,15 


LABEL “VERTICAL=100 NANOSEC/MAJOR DIV HORTZONTAL=1 KM/MAJOR DIV" 


MOVE 60,142 

LABEL "SMOOTHED TD ERROR VS ALONG TRACK DISTANCE" 
WS=VAL$ (Wt) 

MOVE 60,9 

LABEL, "REFERENCED TO WAYPOINT "&Ws 
MOVE 60,6 

LABEL “FILE="&F$ 

! HARD COPY 

PAUSE 

INPUT "HARD COPY? Y OR N",Hc$ 

IF Hc$="¥" THEN DUMP GRAPHICS 

EXIT GRAPHICS 

SUBEND 
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214440 
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21460 
21470 
21480 
21490 
21500 
21510 
21520 
21530 


SUB Pseudo (Glat,Glon,R(%) ,Plat,Plen) 
OPTION BASE i 

RAD 

DIM X(3),T¢3) 
T(4>=C0S(Glat)*COS(Glon) 
T(2)=COS (Glat)*SIN(Glon) 
T(32SIN(Glat) 

MAT X=RXT 
H=SQR(X¢1)*24X(2)°2) 
Plat2ATN(X(3)/H) 
Plon=ATN(X(2)/X(4)) 
SUBEND 

i] 





21600 SUB Rotate(Glat,Glon,R(&)) 
21610 RAD 

24620 OPTION BASE 4 

21630 R(1,4)=COS(Glat)*COS (Clon) 
21640 R(2,1)2-SIN(Glon) 

21650 R(3,1)=-SIN(Glat)*COS(Glon) 
21660 R(1,2)=COS(Glat)*SIN(Glon) 
21670 R(2,2)=COS(Glon) 

21680 R(3,2)=-SIN(Glat)xSIN(Glon) 
21690 R(1,3).=SIN(Glat) 

21700 R(2,3)=0 

21710 R¢3,3)=COS(Glat) 

21720 SUBEND 

21740 ! 





214750 SUB Cart(Plat,Plon,X,Y) 
21760 OPTION BASE 4 
21770 RAD 
21780 R=6378.135 ; ‘ 
214790 Cos=COS(Plat)*COS(Plon) 
21800 Sin=SQR(1-Cos*2) 
21810 Theta=ATN(Sin/Cos) 
21820 S=R*Theta 
21830 Sin=SIN(Plat)/SIN¢ Theta) 
21840 Cos=SIN(Plon)xCOS(Plat)/SIN( Theta) 
21850 X=S*#Cas 
21860 Y=Sx*Sin 
21870 SUBEND 
21890 ! 
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21900 DEF FNGlat(Rliat,F) 

21910 RAD 

21920 RETURN ATN(Ci-F)*28TANC(RLat)) 
21930 FNEND 

21950 ! 
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SUB Ref_file(R(#) ,RSCR) ,Rps) 
! PROGRAM TO STORE POSITION REFERENCE DATA 

OPTION BASE i 

PRINTER IS 0 , : 
INPUT “REFERENCE POSITION FILE NAME?” ,Rps 

Fewi 

INPUT “IS THIS FILE PRESENTLY ON TAPE?" ,Ex$ 

IF UPCS$(Ex$)="N" THEN CREATE Rp$,4 

Cont: ASSIGN #4 TO Rpt 

IF UPC$(Ex®)="Y¥" THEN READ #4;R$(K),R(K) 

Opt: INPUT “MODIFY/CREATEL, LIST2, SAVES, QUIT4",Opt 
IF (Opt¢i) OR (Opt>4) THEN Opt 

ON Opt GOTO Input,List,File,End 

Input:FOR N=i TO 3 

INPUT “LABEL?” ,RSC(N) 

INPUT °X-POSITION?”,RO(N,4) 

INPUT “Y-POSITION?®,R(N,2) 

PRINT N;RSCN) 5 TABC 20) RCN, 1) 3 TABC30) 5 RIN, 2) 

NEXT N 

GOTO Opt 

List: PRINT LIN(S); "POSITION REFERENCE FILE: “;Rp$ 

FOR I=14 TO 3 

PRINT 15;R8(1I);TABC2S) RCI,4) 3 TARCSS) RCI, 2) 

NEXT I 

PRINT LIN(5S) 

GOTO Opt 

File:ASSIGN #1 TO Rp$ 

PRINT @1,1;R6(%) , ROK) 


End: SUBEND 
' 





22380 SUB Delete_rg (We) ,XCR) , YOR), ZCK) RACH) RACK), TECK) NFS) 
22390 OPTION BASE i 
22400 DIM We(400) ,Xe( 400), Ye( 400), Ze( 400) , Te$( 400) ,Rie(400) ,R2e(400) 
22440 PRINTER IS 0 ; : 
22420 I=0 
| 22430 FOR I=4 TON ‘ 
' 22440 IF (I=4) OR (I=N) THEN 22470 4 
22450 Sampl: IF ABSC(RACI)—(R&ACI44)4R1CI-£))/2)9400 THEN Next 
22460 IF ABS(R2(1)-C(R2C14+4)+R2¢1-4))9/2)2400 THEN Next 
22470 Ja3+i 
22480 DISP I,J 
22490 We(J)=WC1) 
22500 Xe(J)=X(1) 
22540 Ye(J)#Y(I) 
22520 Ze(J)=Z(1) 
22530 Rie(J)=R1i(I) 
22540 R2e(J)=R2(1) 
22550 Te$(J)=TS(I) 
22560 GOTO 22580 
22570 Next:PRINT "SAMPLE DELETED=";I 
22580 NEXT I 
22590 Delete=N-J 
22600 N=J 
22610 MAT W=We 
22620 MAT X=Xe 
22630 MAT Y=Ye 
22640 MAT Z=Ze 
22650 MAT Ri=Rie 
22660 MAT R2=RZe 
22670 FOR I#i TON 
22680 T$(I)=Te$(I) 
22690 NEXT I 
: 22700 PRINT “SAMPLES DELETED=";Delete;" SAMPLES REMAINING=";N 
| ¢ 


: 
: 
, 


22720 End: SUBEND 
22740 ! 
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22750 
22760 
22770 
22780 
22790 
22800 
22810 
22820 
22830 
22840 
22850 
22860 
22870 
22880 
22890 
22900 
229140 
22920 
22930 
22940 
22950 
22960 
22961 


SUB Cart_coord(X(8),Lat,Lon,Z(m))! 

OPTION BASE i 

1 CALCULATE XY COORDINATES OF TRANSMITTERS(Z(%)) WITH RESPECT 
{ TO LOCAL GRID ORIGION(Lat,Lon) 


! INPUT: TRANSMITTER GEODETIC POSITIONS ;X(x) 

! LAT AND LON OF LOCAL GRID ORIGION; Lat,Lon 
1 GUTPUT: TRANSMITTER XY POSITIONS; Z(&) 

! SEE APL TECH NOTE 

DIM G(4,2),P(4,2),Rotate(3,3) 

Fe, 00335278 

Rlat=LateP1I/i180 

Rlat=FNGlat(Riat,F) 

Rlon=LonkP1I/180 

CALL Rotate (Rlat,Rion ,Rotate (xk) ) 

FOR I=i TO 4 

G(l,4)=X¢1,4)KPI/180 

GCI, 4) =FNG1Lat(G(1,4),F) 

G(I,2)=X(1,2)xP1/180 

CALL Psevudo(G(1,4),6(1,2) ,Rotate (x) ,P(I,4),P¢(1,2)) 
CALL Cart(P(I,41),P¢1,2),Z¢41,4),Z¢T,2)) 

NEXT I 

SUBEND 

' 





23030 SUB Wp3(WCe),C,W, TCR) ,Z¢0%), LS) 

23040 OPTION BASE i 

23050 ! SELECT THE 3 TDs TO BE USED AS THE WAYPOINT(T(&)) FOR THE 
23060 ! 3-TD FEHG SOLUTION BASED ON THE CHAIN CONFIGURATION(C) 
23070 ! INPUTS: 


23080 ! WCk); WAYPOINT TABLE 
23690 ! Cs; CHAIN CONFIGURATION, 4=#XYZ, 2=WXY, 3=WXZ, 42WYZ 
23100 ! W; WAYPOINT NUMBER 
23110 ! OUTPUTS: 
23120 ! T(%); WAYPOINT TDs 
23130 ! Z(K); WAYPOINT XY POSITION ; 
23440 ! L$; LABEL 1 
23150 Z(4,4)=000,5) | 
23160 Z(2,4).=WCW, 6) 
23170 ON C GOTO Xyz,Wxy ,Wxz,Wyz 
23180 Xyz:! 
23190 T(4,420CW, 2) 
23200 T42, 1) WCW, 3) 
23240 T(3,4)=W00, 4) 
23220 Le="XYZ" 
23230 SUBEXIT 
23240 Wxy: ! 
23250 T(4, 4) =WCW, 4) 
23260 T(2,4)=WCW,2) 
| 23270 T(3, 4) =WCW, 3) 
> | 23280 Lo="WXY" 
ADE. 23290 SUBEXIT 
1 23300 Wxz:! 
it 23310 TC4, 4d) =WCW, 4) 
it 23320 (2,4) =WCW,2) 
iy 23330 T(3,4)=WCW, 4) 
23340 L$="WXxZ" 
23350 SUBEXIT 
23360 Wyz: ! i 
23370 Ta, 4) =WCW, 4) 
RO 23380 T62,4)=WCW,3) 
ia 23390 T(3,1)=WCW, 4) , 
23400 L$="WYZ" = 
23440 SUBEND : 


: 
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23430 ! 








23440 SUB Td3CWCR) ,XCR), YOR), Z0K),1,0, TOK)? i 
23450 OPTION BASE i ro 
23460 ! SELECTS THE PROPER TD SAMPLES FOR CALCULATING XY POSITION 

23470 ! BASED ON CHAIN CONFIGURATION AND 3-TD FEHG SOLUTION 


; 23480 ! INPUTS: 
23490 ! WOK) ,XCK), YOK) ,Z0K)3 TD DATA ARRAYS 
23500 ! I; SAMPLE NUMBER 
23510 ! C; CHAIN CONFIGURATION 4=XYZ, 2=WXY, S=WXZ, 42=WYZ 
23520 ! QUTPUT: ; 
23530 ! T(K); TD SAMPLE 
23540 ON C GOTO Xyz,Wxy,Wxz,Wyz : 
23550 Xyz:! 
23560 T(4,4)=XCI) 
23570 T(2,4)=YCT) 
23580 T(3,4)0=Z(1) 
23590 SUBEXIT 
23600 Wxy: ! 


23610 TO4,4)=WCT) 

23620 T(2,4)0=XCI) 

23630 TO3,4)=YC1) 

23640 SUBEXIT 

234650 Wyz: ! 

23660 T(4,40=WC1) 

23670 T(2,4)02YCT) 

23680 T(3, 490201) 

23690 SUBEXIT 
23700 Wxz: ! i 
237140 TCK4,4)5WCT) 

23720 T(2,4)0=XC1T) 

23730 T(43,498Z01) 

23740 SUBEND 

23760 ! 
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SUB Wp2CWCR),C,W, TOK) ,P,Z0K) ,GL26K) ,G23CR) ,G.3(K) , CCH) LS, ZxCH) ,Zxt(e 


OPTION BASE 1 . 
1 SELECT WAYPOINT TDs,POSITION, TRANSMITTER POSITIONS AND G-MATRIX FOR 
FEHG SOLUTION 
1 FEHG SOLUTION BASED ON CHAIN CONFIGURATION AND DESIRED TD PAIR 
! INPUTS: 
! Wdk); WAYPOINT TABLE 
{ C; CHAIN CONFIGURATION 4#XYZ, 2=WXY, 3=WXZ, 4=WYZ 
! P; TD PAIR 
! Gi2¢(k) ,G23(K),Gi3(K); 2-TD G-MATRICES 
! Zx(K); TRANSMITTER POSITIONS 
! OUTPUTS: 
! T(K); WAYPOINT TDs 
! G(k); G-MATRIX 
! Z(k); WAYPOINT POSITION 
! Zxt(k); TRANSMITTER POSITIONS FOR 2-TD SOLUTION 
! L$; LABEL 
244 ,4)9=0CW,5) 
Z(2,14)=W(W,6) 
Zxt¢3,4)=Zx%(4,4) 
Zxt(3,2)=Zx (4,2) 
ON C GOTO Xyz,Wxy,Wxz,Wyz 
Xy2z:! 
INPUT “INPUT TD PAIR; XY4, XZ2, YZ3",P 
ON P GOTO Xy,Xz,Yz 
Wxy:! 
INPUT “INPUT TD PAIR; WX41, WY2, XY3",P 
ON P GOTO Wx,Wy,Xy 
Wxz:! 
INPUT “INPUT TD PAIR; WX41, WZ2, XZ3",P 
ON P GOTO Wx ,Wz,Xz 
Wyz:! 
INPUT "INPUT TD PAIR; WY1, WZ2, YZ3",P 
ON P GOTO Wy,Wz,Yz 
Wx:! 
T(4,4> 200,14) 
T(2,1)=WCW,2) 
L$="Wx" e 
GOTO Xmit_sel 
Wy: $3 
TCL, 1) =WCW, 1) 
TC2, 4) 20H, 3) 
Lé="Wy" 
GOTO Xmit_sel 
Wz: 1 
T(4,4) 900,41) 
T(2,4.=W(W, 4) 
L$="WZ" 
GOTO Xmit_sel 
Xy: 3 
TC4, 4) =WCW,2) 
T(2,4) WCW, 3) 
Lo="xy" 
GOTO Xmit_sel 
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24300 
243140 
24320 
24330 
24340 
24350 
24360 
24370 
24380 
24390 
24400 
244140 
24420 
24430 
24440 
24450 
24460 
24470 
24480 
24490 
24500 
24510 
24520 
24530 
24540 
24550 
24560 
24570 
24580 
24590 
24600 
24610 
24620 
24640 


Xz: 
TCL, 4) eC, 2) 
T(2, 4) WCW, 4) 
L$="XZ" 

GOTO Xmit_sel 

Vz: 
T(1,4)9=00W,3) 
T(2,4> WCW, 4) 
L$="YZ" 

GOTO Xmit_sel 

Xmit_sel:  ! 

ON P GOTO X12,X13,X23 

Xi2:! 

MAT G=G612 
Zxt(4,4)22x(4,4) 
Zxt(4,2)=Zx (1,2) 
Zxt(2,4)"Zx(2,14) 
Zxt(2,2)2Zx(2,2) 
SUBEXIT 

X13; ! 

MAT G=Gi3 
ZxtCi,i=Zx4,4) 
Zxt¢(4,2)=Zx(4,2) 
Zxt(2,4)2Zx(3,4) 
Zxt(2,2)8Zx(3,2) 
SUBEXIT 

X23: ! 

MAT G=G23 
Zxt(4,4)2Zx(2,1) 
Zxt(1,2)=Zx(2,2) 
Zxt(2,4)"Zx(3,14) 
Zxt(2,2)2Zx(3,2) 
SUBEND 
' 


24650 SUB Td2(WCa),XCK), YOK), Z08),1,0,P, TCR) 

24660 ! SELECT THE PROPER TD SAMPLES FOR CALCULATING XY POSITION 
24670 ! BASED ON CHAIN CONFIGURATION, TD PAIR, AND 2-TD FEHG SOLUTION 
24680 ! INPUTS: , ; 

Wik), XC%), YOR), Z0%)3 TD DATA ARRAYS 


24690 ! 
24700 ! I; SAMPLE NUMBER 
24710 ! C; CHAIN CONFIGURATION 
24720 ! P; TD PAIR 
24730 ! OUTPUT: 

24740 ! T(K); TD SAMPLE 
24750 OPTION BASE 4 

24760 ON C GOTO Xyz,Wxy,Wxz,Wyz 
24770 Xyz:! 

24780 ON P GOTO Xy,Xz,Yz 
24790 Wxy:! 

24800 ON P GOTO Wx,Wy ,Wz 
24810 Wxz:! 

24820 ON P GOTO Wx,Wz,Xz 
24830 Wyz:! 

24840 ON P GOTO Wy,Wz,Yz 
24850 Wx: ! 

24860 T(4,4)=WCI) 

24870 T(2,4)=XC1T) 

24880 SUBREXIT 

24890 Wy:! 

24900 Th, 4).=WCT) 

24910 T(2,4)0=YCT) 

24920 SUBEXIT 

24930 Wz:! 

24940 T41,4)2W(T) 

24950 T(2,14)=Z¢1) 

24960 SUBEXIT 

24970 Xy:! 

24980 T(1,4)=XCI) 

24990 T(2,4)8YC(T) 

25000 SUBEXIT 

25010 Xz:! 

25020 T(4,4)="X(T) 

25030 T(2,4)=2¢1)° 

25040 SUBEXIT 

25050 Yz:;! 

25060 T(4,1)2YVCT) 

25070 T(2,4).8Z(1) 

250680 SUREND 

25100 ! 
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A! 25470 
Ri 25480 
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SUB Wpf2(WCe),C,P,W,TCK)) 

! SELECTS PROPER TDs FROM WAYPOINT FILE FOR CALCULATION OF 
1 THE “FROM WAYPOINT POSITION USING THE 2-TD FEHG SOLUTION 
! INPUTS: 

! WCk); WAYPOINT FILE 

! C; CHAIN CONFIGURATION 

! P; TD PAIR 
! 
’ 







W; WAYPOINT FROM 

! OUTPUT: 

! T(K); 2-TD WAYPOINT FOR WAYPOINT FROM 

ON C GOTO Xyz, Wxy ,Wx2z,Wyz 

Xyz: ON P GOTO Xy,Xz,Y¥z 

Wxy: ON P GOTO Wx,Wy,Xy 

Wyz: ON P GOTO Wy,Wz,Yz 

Wx:! 

TCL, 2) =WCW, 1) 

T(2,4) =WCW,2) 

SUBREXIT 

Wy:! 

TC4,4)2WCW, 4) 

T42,4)=WCW,3) 

SUREXIT 

Wz:! 

TC1, 4) 20H, 1) | 

T(2,4)200W,4) 

SUREXIT | 

Xyi! | 

T44,4)22W(W,2) | 

T42,1)2W(W,3) 4 
i 




















SUREXIT 

Xz: ! 
Td2, 49 2WCW,2) 
T42,4) WCW, 4) 
SUBEXIT 

Yz:! 

TK1,4)0 "WCW, 3) 
TC2,14)=WCW, 4) 


SUBEND 
' e 












' 
, 
fi 
Fi 
i 
¢ 
3 
t 
: 
: 


25510 
25520 
25530 
25540 
25550 
25560 
253870 
25580 
25590 
25600 
25604 


SUB Rb(X1,¥4,X2,Y2,B,R) 
DEG 

DEFAULT ON 

Dx=X2-X4 

Dy=Y2-Y4 
R=SQR(Dx*2+Dy*2) 
B=ATN(Dx/Dy) 

IF Dy{0 THEN B=B+i80 
IF B(O THEN B=B+360 
SUBEND 

! 





26180 SUB Compar (Pos_x(&) ,Pos_y(K) ,Zx(B) , Zy (RB), ACH) ,CeCS) ,AtTCR) ,Crece) , Fs 
2N,R) 

26190 DIM Ae(400) ,Ce( 400) ,Xe( 400), Ye( 400) ,Statl4,4) ,Cov(3,6) ,0_set (4) 
26200 ! COMPARE MINI-RANGER AND LORAN-C POSITIONS 

26210 Re=0 

26220 Ree=0 

26230 FOR I=i TON 

26240) Xetl)=Pos_x(I)-Zx¢1) 

26250 Ye (I)=Pos_y(I)-ZyCI) 

26260 Ce(TeCtCI)-Crecr) 

26270 AeCT =AtCT)-AtT(T) 

26280 Re=Ret+( (Xe (1)K1000) *2+(Ye(1)k1000)*2) 

26290 ReetRee+( (Ce(I)%1000)*2+ (Ae (1)%1000)%2) 

26300 NEXT I 

26340 Re=(Re/N)*.S 

26320 Reex=(Ree/N)*.S 

26330 CALL Stat_mat(Ae(k),Ce(m) ,Xe(k), YeCR) ,Stat(m) ,Covle) ,O_set(%) ,N) 
26340 FIXED 3 

26350 PRINTER IS 0 

26360 CALL Dif (Stat(k) ,O_set(X) ,N,FS$,Re ,Ree) 

26370 CALL Plot_err(Xe(%), Ye (Rk) ,N,AtTt(K),R,1) 

26380 PAUSE 

26390 INPUT “HARD COPY?,Y OR N",HS 

26400 IF H$="Y" THEN DUMP GRAPHICS 

26410 CALL. Plot_err(Ae(&) ,Ce Ck) ,N,Att(K) ,R,2) 

26420 PAUSE 

26430 INPUT "HARD COPY?,Y OR N”,HS 

26440 IF H$="Y" THEN DUMP GRAPHICS 

26450 EXIT GRAPHICS 

26460 SUBEND 





264710 
26480 
26490 
26500 
26510 
26520 
26530 
26540 
268550 
26560 
26570 
26580 
26590 
26600 
26610 
26620 
26636 
26640 
26650 
26660 
26670 
26680 
26690 
26708 
26710 
26720 
26730 
26740 
26750 
26760 
26770 
26780 
26790 
26800 
26810 
268620 
26830 
26840 
26850 
26860 
26870 
26880 
26890 
26900 
269710 
26920 
26930 
26940 


SUB Reflect 


OPTION BASE 
DIM T1(400) 
! REFLECTS 
! TDreflec 
! h¢(Z)=¢ 
! 

FOR I=1 TO 

CALL Rb(Wpt 
NEXT I 

FOR I=1 TO 

TCI>=(Range 
NEXT I 

' 





CW, WptCe) WOR) XCRD, VCR), ZC), Ze CH), Zy CR) Conf, Zxmit Cw) ,N 


4 
»T2¢400) ,T3¢400) , Bear (4) ,Range(4) ,T¢3> 


TDs MEASURED NEAR A WAYPOINT TO THE WAYPOINT 


t=TDmeas-(h(Zmeas)~-h(Zwaypoint)) 


Range_secondary-Range_master)/Velocity_propogation 


CALCULATE h(Zwaypoint) 
4 


(W,S) Wor(W,6), Zxmitll,4),Zxmit(l,2), Bear (I) ,Range(I)) 


3 
(1>-Range(4)>/V 


CALCULATE h(Zmeas)-h(Zwaypoint) 


FOR I=i TON 


FOR J=1 TO 
CALL Rb(Zx¢ 
NEXT J 
TICID= (Rang 
T2¢(T =CRang 
T3¢C1T)=(Rang 
NEXT I 

' 

ON Conf GOT 
Xyz: 3 

MAT W=(0) 
MAT X=X-Ti 
MAT Y#Y-T2 
MAT Z=Z-T3 
SUBEXIT 
Wxys ! 

MAT WeW-Ti 
MAT X=X-T2 
MAT Y2Y-T3 
MAT Z2(0) 
SUBEXIT 
Wxz: ! 

MAT W=W-Ti ° 
MAT X2X-T2 
MAT Y=(0) 
MAT Z=Z-T3 
SUBEXIT 
Wyz: ! 

MAT WeW~-Ti 
MAT X=(0) 
MAT Y=#Y~-T2 
MAT Z=Z-T3 
SUBEND 


4 


I), ZyCI) , Zamit¢s,41),Zumirt(s,2) ,Bear(J> ,Range(sI)) 


e(4)-Range (4) )/V-T(4) 
e(2>-Range (4) )/V-T(2) 
e¢3)-Range (4) )/V-T¢3) 


CALCULATE TDmeas~(h(Zmeas)—-h(Zwaypoint)) 
O Xyz,Wxy ,Wxz,Wyz 








